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PREFACE 


This  report  describes  the  modeling  of  airborne  contaainant 
transport  and  its  infiltration  into  ana  dispersion  within  a  pressurized 
chaaber  with  a  fabric  cover.  The  airflow  is  assuaed  to  be  turbulent. 
The  work  reported  here  is  part  of  a  larger  study  involving  the 
development  of  experiaental  techniques  as  veil  as  coaputational  tools 
that  can  be  used  to  design  fabric  structures  to  provide  a  safe  internal 
environment  when  the  external  environment  is  contaminated. 
Computationally,  the  two  issues  aost  difficult  to  deal  with  are:  1.  How 
much  contaminant  is  deposited  on  a  structure  in  a  contaminated 
environment  and  how  is  it  distributed  over  the  structure,  and  2.  How  is 
the  contaminant  transported  through  the  fabric  that  is  the  interface 
between  the  internal  and  external  environments.  The  computational 
approach  is  to  deal  with  the  problem  as  a  whole,  not  to  separate  the 
analyses  of  the  external  flow,  internal  flow,  and  transport  through  the 
fabric.  The  work  reported  took  place  from  January  1990  to  December 
1990.  It  was  funded  under  Contract  No.  DAAK60-92-R001 . 

Thanks  are  due  to  Mr.  John  Calligeros  who,  as  director  of  Natick’s 
Engineering  Technology  Division,  has  been  most  supportive  of  this  work 
and  to  Dr.  Louis  Piscitelle  and  Dr.  Earl  Steeves  for  the  many  useful 
discussions  we  had  and  for  their  suggestions.  Thanks  also  to  Mr.  Gary 
Vincens  and  Mr.  Kyle  Welch  for  the  experiaental  data  they  provided. 
Finally,  thanks  to  Ms.  Marcia  Lightbody  for  editing  the  report  and 
thereby  greatly  improving  it. 
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An  Axisymmetric,  Turbulent  Flow  Analysis  of  Contaminant 
Infiltration  into  a  Pressurised  Structure  with  a  Fabric  Endcap 

INTRODUCTION 

The  problem  of  contaminant  infiltration  and  dispersal  within  pressurized  fabric 
structures  is  highly  complex.  The  level  of  contamination  on  the  exterior  of  the  fabric  could 
be  assumed  as  a  boundary  condition.  This  approach  is  not  satisfactory,  since  the  way 
airborne  contaminants  will  be  distributed  over  the  exterior  of  a  structure  is  highly 
dependent  on  the  nature  of  the  external  flow,  which  depends  on  the  geometry  of  the 
structure  in  question.  The  analysis  reported  here  considers  the  problem  as  a  whole,  not 
separating  the  external  from  the  internal  flow.  Because  of  this  approach,  the  distribution 
of  contaminant  on  the  exterior  of  the  structure  is  determined  automatically  as  part  of  the 
solution  process  and  need  not  be  specified  a  priori.  The  development  of  the  axisymmetric 
model  for  the  study  of  the  infiltration  of  airborne  contaminants  into  a  fabric-covered 
chamber,  pressurized  with  uncontaminated  air,  is  discussed  in  detail.  This  particular 
configuration  was  chosen  because  an  experimental  model  could  be  easily  developed  for  it. 
The  external  flow  is  assumed  to  be  turbulent.  The  Navier-Stokes  equations  govern  the 
velocity  field  and  the  mass  transport  equation  governs  the  distribution  of  contaminant. 
Two  equations  are  used  to  model  the  effect  of  turbulence,  an  equation  for  the  transport  of 
the  turbulent  kinetic  energy  and  an  equation  for  the  dissipation  of  turbulent  kinetic  energy. 
These  two  equations  are  semiempirical.  The  presence  of  contaminant  is  assumed  not  to 
affect  the  velocity  field.  Thus,  the  contaminant  transport  equation  is  solved  after  the 
solution  for  the  flow  field  is  accomplished.  The  fabric  is  modeled  using  an  empirically 
derived  relation  between  pressure  drop  across  the  fabric  and  the  velocity  through  the 
fabric. 

The  equations  are  solved  numerically  using  a  control  volume,  finite  difference 


method.  To  permit  the  use  of  a  relatively  coarse  mesh,  a  two-equation  model  of 
turbulence  is  used  in  conjunction  with  the  Navier-Stokes  equations. 

The  organization  of  this  report  is  as  follows.  The  Navier-Stokes  equations  are  given 
along  with  the  associated  boundary  conditions.  The  model  for  the  fabric  is  introduced. 
Next,  the  two-equation  model  for  turbulence  is  introduced  with  the  associated  boundary 

V 

conditions.  Turbulence  is  primarily  generated  in  the  very  thin  boundary  layers  along  walls. 
In  order  to  avoid  the  need  for  very  fine  grid  spacing  next  to  walls,  the  wall  function 
method,  which  approximates  the  velocity  profile  in  the  boundary  layer,  is  introduced  and 
discussed  in  detail.  Next,  the  mass  transport  equation  for  the  contaminant  is  introduced 
with  its  boundary  conditions,  followed  by  discussion  of  the  control  volume  finite  difference 
technique  used  to  solve  the  equations.  To  validate  this  approach,  the  problem  for 
turbulent  flow  through  a  circular  pipe  is  analyzed.  There  have  been  numerous 
experimental  and  numerical  studies  of  this  problem.  The  approach  is  then  applied  to  the 
problem  at  hand.  The  results  of  various  cases  and  their  relation  to  experimental  work 
conclude  the  main  body  of  the  report.  Details  concerning  the  software  developed  to 
perform  this  study  are  given  in  the  Appendices  A— H. 

GOVERNING  EQUATIONS 

Turbulent  flow  is  treated  as  a  statistical  process.  The  instantaneous  velocity 
components  are  taken  as  the  sum  of  a  mean  velocity  component  and  a  fluctuating  turbulent 
velocity  component.  Thus, 

A 

U  =  u  +  u 
V  =  v  +  v 

where  u  and  v  are  the  mean  components,  which  can  be  considered  as  averaged  over  an 
interval  of  time  at  a  point  in  space  for  steady-state  problems  or  as  an  ensemble  average  at 

A  A 

a  point  in  space  for  transient  problems,  u  and  v  are  the  randomly  fluctuating  turbulent 

2 


velocity  components.  The  mean  components  are  governed  by  the  Navier— Stokes  equations. 
These  equations  contain  products  of  the  fluctuating  components,  which  are  called  Reynolds 
stresses.  The  Reynolds  stresses  cannot  be  determined  analytically  so  empirical  models  are 
used.  These  models  fall  under  the  name  of  mixing  length  models.  Their  ultimate  purpose 
is  to  develop  a  turbulent  viscosity  coefficient  by  way  of  analogy  to  the  laminar  viscosity 
coefficient  in  order  to  account  for  the  loss  of  energy  that  occurs  in  the  formation  of 
turbulence.  There  are  various  mixing  length  models,  one  of  the  most  robust  being  the 
two-equation  or  K-e  model.  The  turbulent  components  are  used  to  define  the  turbulent 
kinetic  energy  and  the  turbulent  energy  dissipation  function  in  the  two-equation  model. 
This  semiempirical  approach  leads  to  closure  of  an  otherwise  intractable  problem  and 
permits  the  numerical  solution  of  many  interesting  problems. 

Navier— Stokes  Equations 

The  governing  equations  for  the  mean  velocity  components  are  obtained  by  averaging 
the  equations  for  instantaneous  velocity  components  and  result  in  equations  directly 
analogous  to  those  for  laminar  flow.  For  axisymmc+ric  problems,  the  Navier-Stokes 
equations  are,  for  the  radial  direction, 


-!+s' 


and  for  the  axial  direction, 


where  u  is  the  mean  radial  velocity,  v  the  mean  axial  velocity,  Sf  and  Sz  the  source 
terms  which  are  used  to  account  for  loss  of  momentum  (pressure  drop)  through  porous 
media  and  =  /x  +  /*t  is  the  effective  viscosity  that  includes  the  effect  of  turbulent 
energy  dissipation:  n  is  the  laminar  viscosity  and  is  the  turbulent  viscosity. 


The  turbulent  viscosity  is  an  empirical  concept  used  to  account  for  the  work  done  in  the 
creation  of  turbulence  and  its  dissipation.  This  form  for  the  equations  does  not  invoke  the 
continuity  equation  which  is  used  by  the  numerical  algorithm  to  develop  a  pressure 
equation.  The  continuity  equation  for  incompressible  flow  can  be  written  as 

(3)  +  »»  =  0  . 

The  boundary  conditions  are  normal  to  a  solid  boundary 

(4)  u-n  =  0  , 

tangential  to  a  solid  boundary 

(5)  u-t  =  0  , 

at  an  inflow  boundary 

(6)  u  is  specified  , 
and  at  an  outflc  w  boundary 

(7)  u  is  unspecified  . 

In  the  numerical  model  wall  functions  are  used  for  velocities  at  nodes  adjacent  to  walls. 
This  will  be  discussed  in  detail  later. 

Fabric  Model 

The  fabric  model  is  based  on  the  work  of  Armour  and  Cannon  [1].  The  equation  is 
the  sum  of  two  terms,  one  linear  in  the  velocity  and  the  other  the  square  of  the  velocity. 
The  linear  term  accounts  for  viscous  drag  and  the  square  term  for  turbulent  dissipation. 
The  coefficients  in  this  empirically  determined  relation  depend  on  the  generic 
characteristics  of  woven  fabric:  the  void  fraction,  surface-area-to— volume  ratio,  effective 
pore  diameter,  effective  thickness,  and  the  viscosity  and  density  of  the  fluid.  The  source 
terms  in  the  Navier— Stokes  equations  (1)  and  (2)  are  Sr=  0  and  Sz=  0  in  the  air  and 
are  for  the  fabric 
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and 


(9)  S3=(a?2+^2l“l]v 

where  the  viscous  flow  resistance  coefficient  a  =  8.61  and  the  turbulent  energy  dissipation 
coefficient  /3  =  0.52.  D  is  the  pore  diameter,  A  the  surface-area-to-volume  ratio,  and 
e  is  the  void  fraction.  These  expressions  represent  the  pressure  drop  that  would  occur 
across  the  fabric  for  steady,  uniform  flow. 

Two— Equation  Turbulence  Model 

The  Navier— Stokes  equations  used  here  are  for  the  mean  velocity  components.  The 
effect  of  turbulence  is  accounted  for  by  adding  to  the  actual  viscosity  a  turbulent  viscosity 
that  represents  the  effect  of  energy  loss  in  the  creation  of  turbulence.  A  mechanical  energy 
equation,  or  equation  for  the  transport  of  turbulent  kinetic  energy,  is  found  by  taking  the 

momentum  equation  for  the  r-direction  and  multiplying  by  u  and  the  equation  for  the 

* 

z— direction  and  multiplying  by  v.  After  we  take  the  average  of  each  resulting  equation 
and  invoke  continuity,  the  resulting  equations  are  added  to  obtain  the  desired  transport 
equation  (see  any  text  on  turbulent  flow,  e.g.  [2]).  Half  the  mean  square  turbulent  velocity 
is  given  by, 


(10) 


K-&7+7) 


A  A 

where  u  and  v  are  the  randomly  fluctuating  turbulent  velocity  components.  The 
turbulent  kinetic  energy  is  pK.  The  equation  for  the  turbulent  kinetic  energy  is  [2,3,4] 

e  r  ^ 


rr.  3K 

,d 

r,5K 

k7F 

J 

k^J 

+  Gt  —  pe 


mi  +  i4(r^K)  +  i(^K)  =  ±4 

l11'  3t  +  Tdr  F3F 

where  is  turbulent  kineti  °nergy  generation  term  given  by 

(12)  Gk  =  M2l“2r  +  y2z  +  (“A)2]  +  (v  r  +  »/) 

where  is  the  turbulent  viscosity  which  is  given  by  the  empirical  relation 

(13)  =  CdpK2/e  . 

In  these  relations  the  variable  e  is  the  rate  of  dissipation  of  turbulent  kinetic 
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(14) 


The  dissipation  rate  e  can  be  treated  like  any  property  that  is  transported  by  the  flow  so 
the  governing  transport  equation  for  e  is 

(i5)  =  7^ 

The  constants  Cj  ,  ,  and  are  empirical.  The  diffusion  coefficients  and  Te 

take  different  forms  depending  on  the  nature  of  the  flow  [4].  For  high  Reynolds  number 
flow 


rTJte 

,  d 

*  * 

r  de 

{ 

,  C,G,e  C9e 
+  1  2k 


(w)  rk  =  pt/<rk  and  Te  =  p,/^ 

and  for  low  Reynolds  number  flow 

(17)  rk  =  M  +  Vffk  and  re  =  V  +  Vae 

where  and  are  effective  turbulent  Prandtl  numbers  for  the  two  transport 
processes. 

The  conditions  for  certain  types  of  boundaries  are  treated  in  an  ad  hoc,  but 
intuitively  satisfactory  way;  on  others  they  are  based  on  experimental  results,  and  on 
others  by  semiempirical  models  called  wall  functions.  The  first  two  are  presented  in  this 
section  while  wall  functions  are  dealt  with  in  a  separate  section. 

On  symmetry  boundaries  the  normal  derivatives  vanish 

(18)  dK/ dn  =  0  and  de/dn  =  0  . 

At  an  outlet  the  normal  derivatives  vanish 

(19)  dK/dn  =  0  and  de/dn  =  0  . 

At  an  inlet  the  turbulent  kinetic  energy  is  taken  to  be  some  fraction  of  the  average  kinetic 
energy 

(20)  K  =  cu-u 

where,  for  example,  in  the  case  of  flow  in  a  circular  pipe  c  =  0.005  [5]. 
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The  rate  of  dissipation  is  taken  to  be  of  the  form 

(21)  e  =  CdK3/2// 

where  l  is  Prandtl’s  turbulent  mixing  length  [6,7]  and,  for  example,  t  =  0.03R  for  a  pipe 
with  outer  radius  R  [5]. 

At  a  wall,  it  is  recommended  that  [4] 

(22)  <9K/dn  =  0  . 

This  is  reasonable  since  there  is  no  energy  flux  through  a  wall.  The  rate  of  dissipation  e 
at  a  wall  is  treated  with  wall  functions. 

Wall  Functions 

In  theory,  it  is  possible  to  numerically  model  the  flow  field  next  to  the  wall  without 
resorting  to  any  special  methods.  Practically,  however,  it  is  not  desirable  to  treat 
boundary  layers  in  great  detail  because  this  would  require  a  very  fine  mesh  indeed.  This  is 
because  the  nature  of  the  flow  changes  so  dramatically  from  laminar  adjacent  to  the  wall, 
to  transition  and  then  to  turbulent  in  a  very  short  distance.  Jones  and  Launder  [6],  for 
example,  used  almost  100  nodes  in  the  boundary  layer  to  model  turbulent  flow  through  a 
pipe.  In  order  to  alleviate  the  need  for  such  refinement,  when  the  full  details  of  the 
boundary  layer  are  not  required,  a  semiempirical  method  called  the  wall  function  technique 
was  developed  [4,5,7]  and  applied  successfully  to  several  interesting  problems.  The  method 
makes  certain  assumptions  about  the  nature  of  the  flow  in  the  boundary  layer  and  is  thus 
not  strictly  applicable  to  situations  where  those  assumptions  are  violated.  The  concept 
could,  however,  be  extended.  In  addition  to  the  assumptions  about  the  flow  in  the 
boundary  layer,  empirical  results  are  used  to  determine  appropriate  constants.  Thus,  the 
method  is  semiempirical. 

The  process  is  based  on  the  premise  that  because  the  boundary  layer  is  so  thin  in  the 
neighborhood  of  the  wall,  the  velocity  profile  for  many  walls  will  not  be  significantly 
different  from  the  profile  near  the  wall  for  turbulent  pipe  flow.  The  problem  of  turbulent 
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pipe  flow  is  well  understood  and  there  is  a  well-established  body  of  theoretical  and 
experimental  work  for  it.  Using  these  results  an  empirical  model  of  the  behavior  of  flow  in 
the  boundary  layer  can  be  simply  quantified,  thereby  obviating  the  need  to  model  the 
boundary  layer  in  detail.  The  use  of  this  model  for  flow  near  the  wall  yields  appropriate 
boundary  conditions  and  source  terms  for  the  momentum,  energy  and  dissipation 
equations. 

In  developing  the  model  for  flow  near  the  wall,  assumptions  need  to  be  made.  The 
first  assumption  is  that  flow  in  the  boundary  layer  is  planar,  or  nearly  so.  The  second 
assumption  is  that  the  flow  can  be  modeled  using  the  assumptions  of  Couette  flow.  This 
classical  viscous  flow  problem  models  the  flow  between  two  parallel  plates,  one  fixed  and 
the  other  moving  with  constant  velocity.  The  next  assumption  is  that  Prandtl’s  mixing 
length  hypothesis  holds[4,7,8]  for  points  far  enough  away  from  the  wall  such  that  they  are 
in  the  fully  turbulent  region: 


(23) 


1  =  kY  , 


where  l  is  the  mixing  length  k  is  von  Karman’s  constant  and  Y  is  the  normal  distance 

from  the  wall  to  a  point  in  the  turbulent  part  of  the  boundary  layer.  The  effective 

viscosity  is  related  to  the  gradient  of  the  tangential  velocity  by 

/2|dU| 

(24)  ^eff=/x  +  ^r|3Y|  ’ 

where  U  is  the  tangential  velocity.  Further,  for  high  velocity  gradients  n  is  small 
compared  to  the  second  term,  so 


(25) 


It  is  further  assumed  that  the  pressure  gradient  in  the  boundary  layer  is  negligible  and  that 
there  is  negligible  mass  flux.  Also,  physical  properties  are  assumed  to  be  constant  and,  as 
is  usually  done  [2,8]  in  developing  the  law  of  the  wall,  the  flow  is  taken  to  be  in  the  positive 
direction.  With  these  conditions  the  momentum  equations  show  that 


(26) 


r  =  t 


w 
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where  r  is  the  shear  stress  in  the  boundary  layer  and  rw  is  the  shear  stress  on  the  wall, 
i.e.,  the  shear  stress  is  uniform  in  the  boundary  layer.  Since, 

(27)  r  =  (irfjdU/dY  , 

using  eqs.  (25)  and  (26)  yields 

dU  dU 

3Y  3Y  • 

This  can  be  written  as 


(28) 


rw 


=  ,*V 


(29) 


dU  . 

3Y 


w 


which  can  be  integrated  directly.  However,  it  is  usual  to  introduce  some  nondimensional 
variables  first.  Thus,  define 

(30)  Y*  =  |VY^, 

(31)  Uf  =  J T^Tp  , 
which  is  called  the  friction  velocity,  and 

(32)  U*  =  U/Uf  . 

Using  eqs.  (30)-(32)  in  eq.  (29)  yields 


(33) 


dU  1 

— •* - *  > 

dY  kY 


which  can  be  integrated  to  give 

(34)  U*  =  «_1ln(EY*)  , 

where  E  is  a  constant  of  integration.  Von  Karman’s  constant  k  and  the  "wall 

roughness"  constant  E  are  empirically  determined.  Eq.  (34)  is  called  the  logarithmic  law  of 

the  wall.  Substitution  of  Eqs.  (30)  —  (32)  into  eq.  (34)  shows  that  the  wall  stress  appears 

on  both  sides  of  the  equation,  thus  giving  a  transcendental  equation  for  r  [8].  If  all  the 

above  assumptions  apply,  then  the  the  rate  of  turbulent  energy  generation  and  the  rate  of 

turbulent  energy  dissipation  in  the  boundary  layer  are  in  balance.  This  balance  has  been 

demonstrated  experimentally  [2,8]  and  implies  for  the  case  of  uniform  shear  stress  in  the 

boundary  layer  that 
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(35)  Twfp  =  =  constant  . 

Therefore,  Y*  =  pC^K^h/p  .  Since  (tJp)1!2  =  (tw/p)/(tJp)1I2  eqs.  (31),  (32), 

(34),  and  (35)  combine  to  give 

\  =  PC#* K^/tU/lnfEY*)  . 

* 

This  wall  law  is  used  if  11.5  <  Y  <  30.0  and  Newton’s  law  with  laminar  viscosity  is  used 
if  Y  <  11.5  .  The  lower  limit  is  obtained  by  the  requirement  that  the  velocity  in  the 
laminar  (linear)  sublayer  match  the  velocity  in  the  logarithmic  layer.  The  upper  limit  is 
obtained  from  the  requirement  that  the  velocity  in  the  logarithmic  layer  match  the  power 
law  profile  for  the  turbulent  core,  obtained  from  empirical  results  for  pipe  flow,  to  a  high 
degree  of  accuracy.  These  limits  can  vary  somewhat  depending  on  the  magnitude  of  the 
Reynolds  number.  The  values  chosen,  however,  cover  a  wide  range  of  flows  and  have  been 
recommended  by  Launder  and  Spalding  [4,7].  In  summary,  for  a  point  p  in  the  boundary 
layer 


(36a) 

(36b) 

with 


Tw  =  ()C^4K1/2KUp/ta(EY*)  11.5  <Y*<  30.0  , 

tv  =  d(dU/dY)p  Y*  <  11.5  , 


(37)  Y*  =  pC^4 K^Yp/p  . 

In  a  numerical  model,  therefore,  it  is  desirable  to  have  the  first  node  adjacent  to  the 
* 

wall  such  that  11.5  <  Y  <  30.0  ,  if  the  flow  is  indeed  turbulent.  This  requires  trial  and 
error  since  K  is  not  known  a  priori. 

In  the  turbulent  energy  equation  (11)  the  source  term  is  comprised  of  two  parts, 

o 

Sr  =  Gr  +  pe  .  From  eq.  (13)  e  =  C-^pK/p^ .  The  fundamental  relation  for  Gr  in 
terms  of  shear  stress  is  Gr  =  rw(dU/dY)p  .  Assuming  the  velocity  gradient  is  large  in 
the  boundary  layer  gives  p^  =  As  a  result  p^  —  rw/(dU/dY)p  can  be  used  in  the 
expression  for  e  .  Thus  the  source  term  for  the  turbulent  kinetic  energy  equation  (11)  for 
points  in  the  boundary  layer  is 
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(38) 


SK  =  (^w-V2K2/Tw)(dU/dY)p  ■ 

For  the  dissipation  equation,  the  assumption  that  e  a  K^^/t  leads  to  the  expression 
(39)  ep  =  Cj*/*K 3/Vp  _ 

for  points  in  the  turbulent  part  of  the  boundary  layer.  Thus,  instead  of  a  boundary 
condition  being  specified  for  e  on  a  wall,  eq.  (39)  is  used  to  fix  the  value  of  e  at  a  point 
near  the  wall. 

These  results  will  be  incorporated  into  the  numerical  model  later  on. 

Mass  Transport  Equation 

As  is  well  known,  different  quantities  have  different  rates  of  diffusion.  In  turbulent 
flow  the  process  of  diffusion  is  augmented  and  often  overwhelmed  by  turbulent  mixing. 
Thus,  the  usual  practice  to  account  for  this  effect  has  been  to  add  a  turbulent  diffusion 
term  to  the  molecular  diffusion  term.  For  example,  as  was  stated  earlier, 
r  =  (n  +  n^)da/dy  where  ^  accounts  for  the  turbulent  contribution  to  viscosity.  This  is 
often  written  as  =  pem  where  em  is  called  the  eddy  viscosity  or  eddy  diffusivity  of 
momentum.  By  Reynolds  analogy,  it  is  expected  that  the  diffusion  of  other  quantities  such 
as  heat,  mass,  etc.  would  behave  similarly  [2].  In  fact,  just  such  an  assumption  is  made  in 
the  turbulent  kinetic  energy  and  kinetic  energy  dissipation  equations.  For  mass  diffusion  in 
laminar  flow,  Fick’s  Law  states  that  M  =  —rjdC/dy  where  M  is  the  mass  flux  per  unit 
area,  C  is  the  mass  concentration  and  rj  is  the  diffusion  coefficient.  By  analogy,  for 
turbulent  flow  this  would  be 

M  =  -^eff50/^  =  -Oh  ed)dc/dy  ■ 

The  ratio  of  eddy  diffusivity  of  momentum  to  eddy  mass  diffusivity  is  called  the  turbulent 
Schmidt  number 

(«)  Sc,  =  em/ed  . 

When  Sct  =  1.0  this  is  called  Reynolds  analogy.  Launder  and  Spalding  [7]  recommend 
using  Sct  =  0.7  .  Whatever  value  is  picked,  since  =  em/Sct  =  pt/pSct , 
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the  effective  mass  diffusion  coefficient  is  given  by 
(41)  *?eff  =  77  +  VpSct  ' 

More  details  can  be  found  in  Reynolds’  book  [2].  For  the  fabric,  the  laminar  diffusion 
coefficient  rj  is  found  by  using  the  Tsai-Halpin  equation  [9]  as  follows: 

(«)  ’'fabric  =  (l  +  AVf)V/(l-AVf), 

where 

^  “  ^fiber  -  ^air^^fiber  ^air^ 
and  Vj  =  1  —  e  is  the  volume  fraction  of  fiber. 

More  details  can  be  found  in  Reynolds  book  [2]. 


The  governing  equation  for  mass  transport  is 


The  boundary  conditions  are  either 


(44) 

C  specified 

or 

(45) 

dC/da  =  0 

at  a  wall  or  a  symmetry  boundary.  In  this  case  wall  functions  are  not  used  since  these  are 
used  only  to  obtain  a  representation  of  the  shear  stress  at  the  wall. 

In  summary  the  governing  equations  are  the  Navier-Stokes  equations  for  the  velocity 
components  u  and  v. 
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the  continuity  equation  for  incompressible  flow, 

d(jn)  =  o  , 
rS  &l 

the  equations  for  turbulent  kinetic  energy  and  turbulent  dissipation, 


£(pK)  Id  (rpuK)  d  (pvK)  =  Id 
7K  ^  roF  +  T&r 


tr.dK 

kdT 


,5 


r\  sk 

kw 


+  Gv  — 


(pe)  +  I^P116)  .  ^  (pve)  _  Id  rr  Jte  d  r  de 
dt  +rdr  +  c£  ~rS  ^  +  dz  ^ 


+  ClGk*-C2£ 


and  the  mass  transport  equation  for  the  contaminant 

&c) + \$rc) + !vC) - &h<] + 


Generic  Field  Equation 


Examination  of  the  governing  equations  shows,  with  the  exception  of  the  continuity 
equation,  they  are  of  the  general  form 
(46)  V-(^u)  =  V-(rfy)  +  S  . 

This  general  form  was  used  in  the  development  of  the  SIMPLER  algorithm  [10]  which  is 
used  to  perform  the  numerical  analysis  discussed  in  the  next  section.  The  continuity 


equation  is  used  in  the  SIMPLER  approach  to  obtain  both  a  pressure  and  a  pressure 
correction  equation  the  details  of  which  are  given  in  [10].  The  pressure  equation  and  the 
pressure  correction  equation  are  buried  in  the  code  and  are  "invisible"  to  the  user. 


MODELING  CONSIDERATIONS 
Incorporation  of  Turbulence  into  the  SIMPLER  Algorithm 

The  SIMPLER  algorithm  as  developed  by  Patankar  [10]  for  laminar  flows  is  modified 
to  accommodate  the  two-equation  model  of  turbulence.  Both  the  turbulent  kinetic  energy 
equation  (11)  and  the  dissipation  of  turbulent  energy  equation  (15)  have  the  form  of  the 
generic  equation  (46).  The  code  that  is  used  is  described  in  an  earlier  report  by  Robertson 
[11].  The  code  is  designed  to  solve  the  momentum  equations,  the  pressure  equation,  and 
the  pressure  correction  equation,  plus  any  number  of  additional  equations  that  have  the 
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form  of  the  generic  equation.  The  pressure  and  pressure  correction  equation  are  obtained 
from  the  continuity  equation,  the  details  of  which  can  be  found  in  [10].  These  are  hidden 
from  the  user  in  the  code.  Additional  equations  can  be  solved  along  with  the  flow 
equations  if  they  are  coupled  to  the  velocity  field,  as  is  the  case  with  the  two  equations 
used  to  model  turbulence,  or  they  can  be  solved  separately  after  the  flow  field  is 
determined,  as  is  the  case  with  the  mass  transport  equation  for  the  case  of  low 
concentrations.  Some  modification  of  the  code  is  required  to  achieve  this.  The  first 
modification  is  to  force  the  code  to  solve  the  two  equations  used  to  describe  turbulence 
iteratively  along  with  the  flow  equations.  The  second  modification  is  to  incorporate  the 
wall  function  technique  for  modeling  boundary  layer  effects.  No  special  changes  to  the 
code  are  required  to  solve  the  mass  transport  equation. 

The  code  is  broken  into  two  main  parts;  the  solution  engine  and  the  driver.  The 
solution  engine  is,  for  practical  purposes,  a  black  box  and  once  set  up  needs  not  be 
modified.  The  driver  is  a  set  of  user-developed  routines  that  describe  the  numerical 
problem  to  be  solved  and  control  the  solution  scheme.  The  driver  communicates  to  the 
engine  through  COMMON  blocks.  Originally,  to  save  storage  the  code  made  extensive  use 
of  high  speed  storage  for  the  various  arrays  used  by  the  code.  The  use  of  high  speed 
storage  has  been  completely  eliminated  and  the  code  now  runs  in  core,  which  has  sped  up 
the  solution  process  considerably.  To  incorporate  turbulence  only  two  changes  were  made 
to  the  engine.  These  are  CALL  statements  to  ENTRY  locations  in  the  driver  for 
computing  the  generation  term  and  to  use  the  wall  functions  describing  boundary 
layer  effects.  The  required  numerical  expressions  for  the  wall  functions  and  Gg  are 
developed  here.  The  changes  to  the  code  are  detailed  in  Appendix  A.  The  driver  has  the 
same  general  form  as  reported  earlier  [11],  but  to  incorporate  turbulence  effects  several 
major  additions  were  required.  The  numerical  expressions  that  must  be  added  are  given 
here  and  the  coding  details  appear  in  Appendix  B.  Note  that  in  the  code  the  axial 


14 


axial  direction  is  x  and  the  radial  direction  is  y  while  the  axial  velocity  is  u  and  the 
radial  velocity  is  v. 

The  SIMPLER  algorithm  uses  a  staggered  grid  approach,  as  shown  in  Figure  1.  Main 
grid  points  are  defined  by  the  user.  Around  each  grid  point  the  code  sets  up  a  control 
volume.  All  scalar  variables  and  all  properties  are  located  at  these  main  grid  points,  i.e., 
temperature,  pressure,  concentration,  density,  viscosity,  etc.  Velocity  components  are 
located  on  the  faces  normal  to  their  flow  direction.  This  leads  to  two  additional  sets  of 
control  volumes,  one  for  each  component.  This  rather  awkward  construction  has  important 
consequences  for  the  stability  and  convergence  of  the  algorithm  [10].  So  what  is  lost  in 
terms  of  convenience  is  gained  in  performance.  This  grid  staggering  requires  a  significant 
amount  of  interpolation  when  moving  variables  and  properties  back  and  forth  from  the 
momentum  to  scalar  equations.  Additionally,  source  terms  are  not  always  incorporated  in 
what  would  appear  to  be  the  "obvious"  way,  again,  to  improve  convergence.  The  changes 
required  for  each  equation  will  be  taken  in  turn  starting  with  the  velocity  equations.  The 
solution  scheme  is  iterative  so  values  from  the  previous  step  are  used  in  the  present  step. 
Velocity  Equations 

The  turbulent  viscosity  ^  is  given  by  eq.  (13).  In  the  code  this  is  defined  in  the 
driver  at  ENTRY  DENSE  and  has  the  form, 

(47)  AMUT(I,J)  =  CD*RHO*TKE(I,J)**2/TED(I,J)  , 

where  AMUT  =  /*t  TKE  =  K  ,  and  TED  =  e  .  The  effective  viscosity  is  defined 
at  ENTRY  GAMSOR  for  the  velocity  components  and  has  the  form 

(48)  GAM(I,J)  =  AMU  +  AMUT(I,J)  , 

where  AMU  =  n  and  GAM  =  The  effect  of  walls  on  the  velocity  equations  requires 
modification  to  the  coefficients  in  the  finite  difference  expressions.  The  effect  of  a  wall  on 
the  "north"  side  of  a  control  volume  will  be  detailed. 
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Figure  la.  The  locations  where  u  and  v  are  evaluated, 
•  aain  grid  nodes,  *  u- nodes,  and  □  v- nodes. 


grid  node 


grid  line 


Figure  lb.  Typical  control  volumes;  CV  1  scalars,  CV  2  u, 
CV  3  v  boundary,  CV  4  v,  and  CV  5  u  boundary. 
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Figure  2  shows  the  control  volume  for  the  u  —  velocity  component  at  a  wall  on  the 
north  face.  The  governing  equations  all  have  the  form  of  the  generic  equation  [46]  and  so 
their  finite  difference  forms  will  be  similar.  For  the  u— velocity  component  the  form  of  the 
finite  difference  equation  [10]  is 

(49)  au^  =  a  u  +  a  u  4-  a  u  +  a0u0  4-  (pu°/At  4-  SjAxAy 

v  '  pp  ee  ww  nn  ss  -pp7  c'  J  , 

where  the  a’s  are  the  finite  difference  coefficients  and  u  =  u- .  is  the  unknown  value. 

P  iJ 

S  is  the  constant  part  of  the  source  term  and  S  is  the  linear  part.  The  a’s  are 
c  p 

essentially  force  contributions  averaged  over  control  volume  faces  and 

(5°)  ap  =  ae  +  aw  +  an  +  as  +  At  "  Sp)AxAy 

The  expression  that  is  obtained  for  an  in  developing  the  finite  difference  equations  for 

laminar  flow  is 

(51)  an  =  /iAA/Ay  , 

where  AA  is  the  area  of  the  north  face  and  Ay  is  the  distance  from  the  wall  to  node  p  . 
Even  though  un  =  0  at  the  wall  there  is  a  contribution  to  the  coefficient  of  up  that 
accounts  for  the  drag  due  to  the  wall.  This  coefficient  must  be  modified  to  account  for 
turbulent  boundary  layer  flow.  Referring  to  eq.  (37), 

(52)  Y*  =  pCl'W*  Ay/p  , 
and  referring  to  eqs.  (36a  &  b), 

(53a)  rw  =  [VC4/4Kl/2/ln(EY*)]up  11.5  <  Y*  <  30  , 

(53b)  rw  =  /iUp/Ay  Y*  <11.5  . 

Thus  a„  becomes 
n 

(54>  \  =  TW  AA/Up  • 

By  using  equations  (52)  to  (54)  the  appropriate  expressions  to  use  in  the  code  can  be 
obtained. 

The  first  application  is  to  turbulent  flow  in  the  pipe  so  the  use  of  the  above 
methodology  will  be  illustrated  with  reference  to  the  driver  for  this  problem  in 
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main  grid  pt. 


Figure  2. 
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boundary 


Appendix  B.  The  ratio  of  wall  stress  to  velocity  is  calculated  at  each  point  along  the  wall. 
It  is  called  TAUN(I)  and  is  calculated  in  the  driver  at  ENTRY  BOUND  as  follows:  Let 
DIST  =  AY 
CD25  =  C^/4 
RHOCON  =  p 
TKE  =  K 
PLUN  =  Y* 

TAUN  =  rw/up 
CAPPA  =  k 
ECON  =  K 

then 

DIST  =  Y(M1)  —  Y(M2) 

CT  =  CD25*DIST 

RK  =  RHOCON*SQRT(ABS(TKE(I,M2))) 

PLUN(I)  =  RK*CT/AMU 
IF  (PLUN(I)  .GT.  11.5)  THEN 
EPLUN  =  ECON*PLUN(I) 

TAUN(I)  =  C  APP  A*RK*CD25/DLOG(EPLUN) 

ELSE 

TAUN(I)  =  AMU/DIST 
ENDIF  . 

* 

As  mentioned  earlier,  it  is  desirable  to  have  Y  (  PLUN(I) )  between  11.5  and  30  but  since 
it  depends  on  K  (  TKE(I,J) )  trial  and  error  is  necessary  to  have  the  first  node  next  to 
the  wall  properly  located.  Having  calculated  TAUN  at  all  the  grid  points  along  the  wall, 
we  can  apply  the  wall  function  method  to  the  various  equations.  The  value  of  TAUN  is 
calculated  at  the  main  grid  points  and  must  be  interpolated  to  find  the  value  at  the 
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velocity  grid  points.  The  value  of  an  for  the  u  -  equation  (49)  is  calculated  in  the  driver 
at  ENTRY  WALL  as  Mows, 

AJP(I,M2)  =  (TAUN(I— 1)*FXM(I)  +  TAUN(I)*FX(I))*XDIF(I)*Y(M1) . 
where  FXM  and  FX  are  interpolants  derived  in  the  main  part  of  the  code.  They  are 
defined  in  Appendix  A.  Since  Y(M1)  is  the  radius  of  the  pipe,  XDIF(I)*Y(M1)  is  AA. 

Turbulent  Energy 

The  diffusion  coefficient  for  the  turbulent  energy  equation  is  given  by  eq.  (17)  and  is 
calculated  in  the  driver  at  ENTRY  GAMSOR  as 

Tk  =  GAM(I,J)  =  AMU  +  AMUT(I,J)/PRTKE  , 
where  PRTKE  =  <r^  . 

It  is  necessary  to  determine  the  turbulent  energy  generation  function  G^  given  by 
eq.  (12)  by  appropriately  evaluating  the  partial  derivatives  interpolated  to  the  main  grid 
points.  Referring  to  Figure  3,  the  following  calculation  is  performed  at  ENTRY 
GRADIENT  in  the  the  driver. 

u  v  =  UPX  =  (U(I+1,J)  -  U(I,J))/XCV(I) 
v  =  VPY  =  (V(I,J+1)  -  V(I,J))/YCV(J) 

I* 

v/r  =  VOR  =  0.5*(V(I,J+1)  +  V(I,J))/Y(J) 

FAC1  =  (YV(J+1)  —  Y(J))/YDIF(J+1) 

FAC2  =  (YV(J)  -  Y(J— 1))/YDIF(J) 

UNEC  =  U(I,J)  +  (U(I,J+1)  -  U(I,J))*FAC1 
USEC  =  U(I,J-1)  +  (U(I,J)  -  U(I,J— 1))*FAC2 
UNWC  =  U(I+1,J)  +  (U(I+1,J+1)  -  U(I+1,J))*FAC1 
USWC  =  U(I+1,J-1)  +  (U(I+1,J)  -  U(I+1,J— 1))*FAC2 

u  =  UPY  =  0.5*(UNEC  -  USEC  +  UNWC  -  USWC)/YCV(J) 

»* 
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Figure  3.  Velocity  components  used  to  calculate  partial 
derivatives  at  the  main  grid  point  P .  • . 
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V  X  =  VPX  =  0.5*(V(I+1,J+1)  -  V(I-1,J+1)  +  V(I+1,J)  -  V(I-M)) 

/(x(i+i)  —  X(I— 1)) 

Gk  =  GK(I,J)  =  AMUT(I,J)*(2.*(UPX*UPX  +  VPX*VPX  +  VOR*VOR) 

+  (UPY  +  VPX)**2)  . 

UNEC,  USED,  UNWC,  and  USWC  are  the  interpolated  values  of  U  at  the  corners  of  the 
control  volume.  The  source  term  for  the  turbulent  energy  equation  (11)  is  Sk  =  Gk  —  pe. 
This  is  rearranged,  according  to  the  procedure  used  by  Pun  and  Spalding  [5],  in  order  to 
improve  convergence  as  follows, 


(55a) 

Sk  =  SCk  +  SPk*K 

where 

(55b) 

SCk  =  l-5Gk  +  (Cj  —  l)pe 

and 

(55c) 

SPk  =  -(0.5Gk  +  C2pe)/K  . 

This  is  calculated  at  ENTRY  GAMSOR  in  the  driver  where 

CON(I,J)  =  SCk 

is  the  constant  part  of  the  source  term  and 

AP(I,J)  =  SPk 

is  the  linear  part.  The  effect  of  the  wall  on  the  turbulent  energy  equation  is  taken  into 

account  through  modification  of  the  source  terms  as  per  eq.  (38).  This  will  be  examined  for 

grid  nodes  next  to  a  north  wall.  Since  rw  =  eq.  (38)  is  of  the  form  Sk  = 

2  2  2 

H^du/dy)  —  C qP  K  /^t  and  since  rw  =  Up*TAUN(I) ,  the  following  procedure  is  used 
(56a)  SCk  =  T^fa/dy  , 

(56b)  SPk  =  -CD(p2/r„)K0u/$y 

which,  at  ENTRY  GAMSOR,  takes  the  form 
Up  =  UP  =  0.5*(U(I+1,M2)  +  U(I,M2)) 

(au/$y)p  =  UPY  =  UP/YDIF(M1) 
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t  =  TAUNW(I)  =  TAUN(I)*UP 
w 

SCk  =  CON(I,J)  =  TAUNW(I)*UPY 

SPk  =  AP(I,M2)  =  -CD*RHOCON**2*TKE(I,M2)*UPY/TAUNW(I)  . 

No  special  boundary  conditions  are  used. 

Energy  Dissipation 

The  diffusion  coefficient  for  the  energy  dissipation  is  given  by  eq.  (17).  This  is 
calculated  in  the  driver  at  ENTRY  GAMSOR  by 

r  =  GAM(I,J)  =  AMU  +  AMUT(I,J)/PRTED  , 

V 

where  PRTED  =  aQ  . 

From  eq.  (15),  the  source  term  for  the  turbulent  energy  dissipation  equation  is  Se  = 
CiGke/K  -  C2e2/K  .  Again,  following  the  treatment  of  Pun  and  Spalding  [5],  this  is 
rewritten  as 

(57a)  Se  =  SCe  +  SPe*e 

where 

(57b)  SCe  =  C^e/K  +  (C2-l)pe2/K 

and 

(57c)  SPe  =  -<2C2  -  l)pe/K  . 

This  is  calculated  at  ENTRY  GAMSOR  by  the  following  statements 
e/K  =  TEOK  =  TED(I,J)/TKE(I,J) 
pe  =  RHOTED  =  RHOCON*TED(I,J) 

SCA  =  CON(I,J)  =  (C1*GK(I,J)  +  C2M*RHOTED)*TEOK 
SPA  =  AP(I,J)  =  — TC2M*RHOCON*TEOK  . 

As  mentioned  earlier,  the  effect  of  a  wall  on  this  equation  is  accounted  for  by  forcing 
the  value  of  e  for  nodes  next  to  a  wall  to  be  that  defined  by  eq.  (39).  This  is  done  in  the 
driver  at  ENTRY  GAMSOR  by  the  following  two  statements, 
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SC.  =  C0N(I,M2)  =  CD75*ABS(TKE(I,M2)**1.5)*1.E30 

C 

/(CAPPA*YDIF(M1)) 

and 

SPe  =  AP(I,J)  = -1.E30  . 

Concentration  Equation 

The  diffusion  coefficient  for  the  concentration  (mass  transport)  equation  is  given  by 
eq.  (41).  The  first  numerical  example  does  not  consider  mass  transport  but  the  second  one 
does.  The  concentration  is  assumed  to  be  so  low  that  the  velocity  equations  are  not 
significantly  affected.  Thus,  the  concentration  equation  (43)  is  solved  after  the  velocity 
field  is  determined.  The  code  uses  the  form  of  the  generic  equation  (46)  for  all  variables 
that  obey  the  mass  transport  equation.  It  is,  therefore,  necessary  to  multiply  eq.  (43) 
through  by  p  in  order  to  put  it  in  the  correct  form.  A  separate  driver  is  developed  for  this 
equation  that  merely  reads  in  the  velocity  field  and  solves  only  the  concentration  equation. 
The  diffusion  coefficient,  suitably  modified,  is  calculated  at  ENTRY  GAMSOR  by 
^eff  =  GAM(J>J)  =  RHOCON*ETA  +  AMUT(I,J)/PRCON  , 
where  PRCON  =  Sct . 

There  are  no  source  terms  in  this  case  and  walls  are  assumed  to  have  no  special  effect 
on  the  concentration. 


NUMERICAL  MODELS 

The  values  for  the  various  constants  in  the  two-equation  model  for  turbulence  are 
those  used  by  Launder  and  Spalding  [7].  These  and  the  values  for  the  von  Karman 
constant  k  and  the  wall  roughness  constant  E  in  the  wall  function  model  are,  Cj =1.44, 
C2=1.92,  C^ssO.09,  <7^=1. 00,  tre=1.30,  Sct=0.70,  k  =  0.40,  and  E=9.0. 
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Flow  Through  a  Circular  Pipe 

This  problem  is  used  to  determine  the  effectiveness  of  the  code  used  here  by 
comparing  results  with  those  of  other  workers.  The  first  problem  examined  is  one 
considered  by  Jones  and  Launder  [6].  They  did  not  use  wall  functions  but,  instead,  used  a 
very  fine  mesh  through  the  boundary  layer  (on  the  order  of  100  nodes).  They  quite 
effectively  modeled  the  experimental  results  of  others.  The  first  two  cases  assume  a  power 
law  distribution  that  fits  the  experimental  data  for  fully  developed  flow  at  the  inlet  and  the 
same  distribution  for  the  initial  velocity  field  in  the  pipe.  At  first  glance  this  would  appear 
to  be  trivial  but,  it  should  be  noted,  the  pressure  field  is  unknown  so,  as  the  analysis 
iterates  to  a  solution,  the  velocity  field  will  in  fact  change  from  iteration  to  iteration  until 
the  pressure  field  stabilizes.  If,  when  the  pressure  field  stabilizes,  the  solution  has 
converged  to  fully  developed  flow  along  the  length  of  the  pipq  then  the  algorithm  for  the 
representation  of  turbulence  can  be  considered  satisfactory.  The  last  case  looks  at 
developing  flow  and  is  compared  with  numerical  results  obtained  by  others. 

Case  1. 

This  first  case  is  for  a  Reynolds  number  of  Re  =  500,000  based  on  the  maximum 
velocity.  The  pipe  has  a  length  of  8.0  and  a  radius  of  0.1.  The  density  is  p  =  1.0,  the 
viscosity  n  =  0.0001.  The  inlet  velocity  distribution  obeys  a  power  law  giving  a 
distribution  dose  to  the  experimentally  obtained  distribution  of  Laufer  [2,6,12].  This  is 
expressed  by 

uinlet  —  umax^  ~  r/rmax^ 

where  umax  =  250.  The  domain  has  92  axial  grid  points  and  42  radial  grid  points.  The 
sparing  is  uniform  axially  and  is  nonuniform  radially  with  a  power  law  distribution  that 
becomes  finer  closer  to  the  wall  since  the  boundary  layer  is  concentrated  within  1.0%  of  the 
pipe’s  outer  radius.  Fig.  4  shows  the  good  agreement  between  the  model  and  experiment  in 
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the  fully  developed  region  near  the  exit  from  the  pipe.  Fig.  5  shows  the  computed  velocity 
distribution  near  the  pipe’s  exit.  Clearly,  as  would  be  expected,  it  is  not  parabolic. 

Case  2. 

In  this  case  Reynolds  number  is  Re  =  50,000  based  on  the  maximum  pipe  velocity. 
The  problem  specifications  are  the  same  as  for  Case  1  except  that  the  inlet  velocity 
distribution  is  given  by 


uinlet  umax^  TlTmax) 

where  umax  =  25.  No  experimental  results  were  available  for  this  case  but  Reynolds  [2] 
outlines  a  procedure  for  determining  an  empirically  validated  power  law  representation  of 


the  velocity,  which  yields  for  the  fully  developed  flow  region, 

u  =  u  (1-r/r  J1/8’229. 

max'-  1  max' 

Fig.  6  shows  that  the  agreement  between  the  code  and  this  expression  is  reasonably  good 


but  slightly  worse  than  for  Case  1.  This  can  be  attributed  to  the  fact  that  the  wall 
function  method  works  best  for  high  Reynolds  numbers. 


Case  3. 


This  last  case  considers  a  problem  solved  by  Pun  and  Spalding  [5]  for  a  Reynolds 
number  of  Re  =  100,000.  The  inlet  velocity  is  taken  to  be  uniform  with  the  value  u-n  = 
50.  The  density  is  p—  1.0  and  the  viscosity  is  p  =  0.0001.  The  pipe’s  length  is  2.0  and 
its  radius  is  0.1  .  The  mesh  is  crude  being  only  10  X  10  with  equal  spacing  in  both  the 
axial  and  radial  directions.  Because  the  model  is  short,  the  flow  is  still  developing  upon 
exit.  The  mesh  is  the  same  as  used  by  Pun  and  Spalding.  This  example  was  chosen 
because  it  permitted  the  comparison  of  two  computer  codes  that  use  slightly  different 
solution  strategies  as  well  as  having  been  programmed  by  different  individuals.  Fig.  7 
shows  the  very  dose  agreement  between  the  two  models. 

The  output  for  Cases  1  and  2  appear  in  Appendix  B. 
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Figure  6.  Turbulent  pipe  flow  with  Re  =  50,000;  comparison 
with  power  law,  - power  law, . model. 
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Turbulent  pipe  flow  with  Ee  =  100,100;  comparison 
with  Pun  and  Spalding,  - Pun, - model. 
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The  Pressurised  Chamber 

The  main  focus  of  this  project  has  been  the  study  of  the  infiltration  of  contaminant 

into  a  pressurized  tube  with  a  fabric  end  cap  where  the  external  flow  is  turbulent.  A  short 

tube,  pressurized  with  uncontaminated  air,  is  placed  concentrically  within  a  longer,  larger 

diameter  tube  with  contaminated  turbulent  air  flowing  through  it.  The  effect  of  chamber 

pressure  on  contaminant  infiltration  is  studied.  Because  the  tubes  are  circular  and  located 

concentrically,  the  flow  is  axisymmetric  and  can  be  modeled  using  the  two-dimensional 

equations  given  earlier.  The  problem  is  shown  in  Fig.  8. 

♦ 

A  graded  mesh  is  used  to  ensure  that  Y  <  30  .  To  do  this  a  power  law  formulation 
is  used  for  the  grid  spacing.  Each  direction  is  divided  into  subregions  as  defined  by  the 
locations  of  the  wall,  as  shown  in  Fig.  9.  The  subregion’s  dimension  is  normalized  to  a 
value  of  1.0  and  and  subdivided  into  n  cells.  The  normalized  location  of  the  first 
coordinate  is  s(l)  =  0.0.  For  subsequent  coordinates  s(i+l)  =  s(i)  +  1.0/n.  These  evenly 
spaced  coordinates  are  then  mapped  onto  a  graded  spacing  by  s(i+l)  =  s(i+l)p  for  i  = 
l,n.  The  physical  coordinates  are  found  by  using  the  appropriate  scale  factor  and  starting 
value.  The  subroutines  to  do  this  are  part  of  the  driver.  Several  runs  are  made  to  find  a 
satisfactory  number  of  cells  and  grading  for  each  subregion.  Fig.  10  illustrates  such  a  mesh 
in  the  neighborhood  of  the  chamber.  The  values  finally  used  are  given  in  Appendix  D. 

The  fabric  is  very  thin  compared  to  the  other  dimensions  in  the  problem.  In  order  to 
have  a  reasonable  mesh,  it  is  necessary  to  use  a  fictitious  thickness  for  the  fabric  that  is  of 
the  order  of  the  cell  widths  used  in  the  rest  of  the  model.  Smearing  the  fabric’s  thickness 
over  two  cells  is  accomplished  by  scaling  the  physical  value  by  the  ratio  of  actual  fabric 
thickness  to  the  thickness  used  in  the  model  [13]  which  is  two  control  volumes.  The 
pressure  drop  source  terms  given  by  eqs.(8)  and  (9)  are  adjusted  by 

S*  =  SB/2  Cy 

where  B  is  the  thickness  of  the  fabric  and  Cy  is  the  thickness  of  a  control  volume  or  cell. 
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Figure  10.  A  typical  graded  «esh. 


The  diffusion  coefficient  for  the  contaminant  in  eq.  (42)  is  adjusted  by 

"*  =  ^fabric (2<VB> ' 

Uncontaminated  air  is  injected  axially  in  the  negative  z-direction  over  a  radial 
distance  of  0.474  in  at  a  distance  of  2.0  in  from  the  fabric.  Inlet  velocities  up  to  100  in/s 
were  used  with  the  injection  velocities  ranging  from  0.1  to  1.0  times  the  inlet  velocity. 

O  o  A. 

The  properties  for  air  are  p,  =  0.275e-8  lb-s/in  ,  p  =  0.1063e-6  lb-s  /in  ,  and  rj  = 
o 

0.044  in/s  .  The  values  to  be  used  in  eqs.(8)  and  (9)  for  the  fabric  are  e  =  0.43,  A  = 
149/in,  D  =  0.00277  in,  and  the  thickness  of  the  fabric  B  =  0.0268  in.  The  assumption 
that  the  diffusion  coefficient  for  the  fiber  is  negligible  yields  =  0.012  in/s  from  eq. 

(42). 

Steady  State  Analysis 

The  majority  of  runs  were  for  steady  state  analysis  since  it  is  the  long  term 
performance  of  the  system  that  is  of  interest.  However,  for  purposes  of  validating  the 
model,  several  transient  runs  were  also  made.  In  all  cases,  contaminated  air  enters  at  the 
inlet  and  uncontaminated  air  is  injected  into  the  chamber  as  shown  in  Fig.  8.  In  this 
section  the  steady  state  case  is  discussed. 

Numerous  cases  were  run,  a  selected  few  of  which  will  be  discussed  here.  For  the  first 
case  the  inlet  velocity  is  60  in/s  and  the  injection  velocity  is  8.0  in/s.  Fig.  11  shows  the 
velocity  field  in  the  neighborhood  of  the  chamber  where  the  vectors  are  plotted  every  other 
grid  point.  Fig.  12  shows  the  flow  within  the  chamber  where  the  vectors  are  plotted  every 
grid  point.  Fig.  13  shows  the  pressure  field.  Fig.  14  shows  the  concentration  contours  for 
the  contaminant.  For  the  second  case  the  injection  velocity  is  increased  to  60  in/s.  The 
exterior  flow  and  the  pressure  field  are  similar  to  the  previous  case.  The  interior  flow  is 
shown  in  Fig.  15  and  the  concentration  contours  are  shown  in  Fig.  16.  The  last  case  in  this 
series  is  for  an  inlet  velocity  of  100  in/s  and  an  injection  velocity  of  60  in/s.  Figs.  17  and 
18  show  the  interior  flow  and  the  concentration  contours,  respectively. 
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Figure  11.  Velocity  field  for  ^njet  =  60  in/s  and 
"inject  *  8  in/8' 


Figure  12.  The  velocity  field  within  the  chaaber  for  the  case 
in  Figure  11. 
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Figure  14.  Concentration  contours  for  the  case  in  Figure  11. 
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Figure  15.  The  velocity  field  within  the  chaaber  when 
"inlet  =  60  in/8  and  'inject  =  60  in/8- 
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Figure  17.  The  velocity  field  within  the  chamber  when 

"inlet  =  100  in/s  “d  "inject  =  60  in/s- 
(the  scale  is  approximately  1/5  that  of  Fig.  8) 
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Figure  18.  Concentration  contours  for  the  case  in  Figure  17. 
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Fig.  19  shows  the  effect  of  injection  velocity  on  the  concentration  at  three  location  in  the 
chamber  for  an  inlet  velocity  of  60  in/s.  Initially  there  is  a  significant  drop  in 
concentration  but  then  it  levels  off  and  even  increases  slightly. 

In  these  four  cases  it  is  apparent  that  the  flow  field  within  the  chamber  is  such  that  it 
mixes  the  contaminated  air  that  infiltrates,  distributing  it  over  a  large  portion  of  the 
chamber  even  though  there  is  a  net  outflow  of  gas  from  the  chamber.  This  led  to 
consideration  of  a  different  mode  of  injection  of  uncontaminated  air.  Instead  of  axial 
injection,  radial  injection  was  tried.  The  injection  takes  place  at  a  radius  of  3.86  in  over  a 
length  of  1.97  in  along  the  axis  starting  0.6  in  from  the  fabric.  For  an  inlet  velocity  of 
50  in/s  and  an  injection  velocity  of  20  in/s,  Fig.  20  shows  the  flow  in  the  neighborhood  of 
the  chamber.  Fig.  21  shows  the  pressure  field  and  Fig.  22  the  concentration  contours.  It  is 
dear  that  the  level  of  contamination  is  significantly  less  for  this  latter  case.  The  volume 
flow  rate  of  the  injected  gas  for  this  case  is  2.5  times  that  for  the  case  of  axial  injection  at 
60  in/s  so  it  might  be  construed  that  this  is  the  cause  of  the  significantly  lower 
concentration.  However,  other  runs  showed  that  this  is  not  the  case. 

Transient  Analysis 

From  the  point  of  view  of  practice,  the  steady  state  analysis  is  a  worst  case  since  the 
concentration  of  contaminant  on  the  exterior  of  the  fabric  will  be  at  its  maximum.  A 
transient  analysis  is  important  because  it  illustrates  the  temporal  behavior  of  the  system 
and  can  be  used  as  a  further  check  on  the  validity  of  the  model.  In  the  experimental  setup 
developed  in  parallel  with  this  study  [14],  the  contaminant  is  humidity.  The  velodty  is 
allowed  to  stabilize  before  humid  air  is  released  into  the  inlet  of  the  tube.  The  time 
variation  of  the  humidity  at  the  inlet  and  within  the  chamber  is  recorded.  For  the 
experiment,  treated  cotton  duck  was  used  for  the  fabric.  The  characteristics  of  the  fabric 
needed  for  the  model  were  measured  by  Nickerson[15]  using  micrographs  of  the  test 
specimens.  These  are  the  values  previously  given.  Because  the  velocity  field  in  the 
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1.00 


Figure  19.  The  effect  of  injection  velocity  on  concentration 
when  U.  i  ^  =  60  in/s.  The  data  are  for  locations 
inlet 

1.18  in  fro*  the  axis  and  o  is  0.374  in, 

*  is  1  874  in,  and  +  is  2.776  in  from  the  fabric. 


Figure  20. 


The  velocity  field  for  the  case  of  radial  injection, 
“inlet  =  50  in/s  "d  “inject  *  20 
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Figure  21.  Pressure  contours  for  the  case  in  Figure  20. 
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Figure  22.  Concentration  contours  for  the  case  in  Figure 
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experiment  was  stabilized  before  the  introduction  of  humid  air  to  the  inlet,  it  can  be 
assumed  that  only  the  water  vapor  concentration  is  changing  in  time  and  that  the  velocity 
field  is  steady.  Thus  the  velocity  analyses  that  were  performed  for  the  steady  state  cases 
can  be  used  as  input  for  the  transient  model  for  the  contaminant  concentration.  Fig.  23 
shows  the  variation  with  time  of  inlet  concentration  used  in  the  model  (the  variation  is 
(1.0  —  e—t/100  )  and  is  a  good  representation  of  the  measured  data  [14]),  and  the 
analytically  predicted  variation  within  the  chamber  as  predicted  by  the  model  for  a 
=  60  in/s  and  =  16  in/s.  It  is  clear  that  the  predicted  value  within  the  chamber 

directly  tracks  the  inlet  value,  as  far  as  can  be  seen  in  the  graph.  This  behavior  was 
observed  for  a  wide  range  of  injection  velocities  and  for  various  locations  within  the 
chamber.  Fig.  24a  shows  the  experimentally  measured  response  for  a  fabric  covered  with 
the  cotton  duck  for  the  case  of  zero  injection  velocity  (no  overpressure).  Note  that  the 
readings  are  not  normalized  and  that  the  steady  state  values  are  equal,  which  is  to  be 
expected  when  there  is  no  injection  of  dry  air  into  the  chamber.  It  should  be  noted  that 
the  measured  data  are  for  relative  humidity  and  not  for  the  concentration  of  water  vapor  so 
the  comparison  can  only  be  qualitative.  It  is  dear  that  the  rise  time  of  the  humidity  in  the 
chamber  is  significantly  greater  than  that  for  the  inlet  humidity.  This  large  difference  in 
rise  times  to  steady  state  was  troubling.  Because  the  velodty  is  fairly  high,  the 
contaminant  is  transported  quite  rapidly  from  the  inlet  to  the  chamber,  any  change  at  the 
inlet  being  felt  within  a  second  or  less  at  the  exterior  of  the  chamber.  This  is  very  fast 
compared  with  the  time  the  solution  takes  to  reach  steady-state,  which  is  on  the  order  of 
500.0  8.  Thus,  the  model  of  the  fabric  appeared  to  have  a  serious  flaw.  In  order  to  check 
this  a  simple  one-dimensional  model  of  diffusion  through  a  fabric  was  solved  exactly  for 
the  case  of  initial  concentration  zero  in  the  fabric  with  one  boundary  having  a 
concentration  equal  to  1.0  applied  at  time  zero  and  the  other  boundary  diffusing  through  a 
resistance  to  a  sink  at  zero  concentration.  When  the  resistance  is  infinite  the  boundary  is 
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Time  -  sec 


Figure  23.  Transient  case  for  11^^=  16  and  Uinlet=  6i 

The  location  in  the  chamber  is  1=64,  J=9 
(1.875  in  from  the  front  of  the  chamber 
and  1.298  in  from  the  axis). 


Figure  24.  a)  Experimental  results  for  cotton  duck  with  no 

injection  into  the  chamber  and  Uinl  =  60  in/s. 

b)  Experimental  results  for  nylon  with  no  injection 
into  the  chamber  and  UinJet  =  120  in/s. 
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impervious  and  when  the  resistance  is  zero  the  boundary  is  at  zero.  The  solution  for  the 

fit 

problem  is  a  series  [16]  with  coefficients  that  are  exponentials  in  time  of  the  form  e~ ^ 
where  /?  are  the  roots  of  /3/h  +  tan(^B)  =  0  and  where  h  is  the  effective  surface 
conductance  at  the  boundary  and  8  is  the  thickness  of  the  fabric.  The  time  constant  for  a 
typical  term  in  the  series  is  The  time  constant  gets  larger  as  h  gets  smaller  and 

the  longest  time  constant  in  the  series  corresponds  to  the  first  root  of  the  characteristic 
equation.  It  can  be  easily  demonstrated  that  as  h  gets  smaller  the  first  root  0  — >  r/2B 
and  for  a  fabric  with  77  =  0.012  and  B  =  0.027  that  the  largest  time  constant  r  —  > 

0.025  8.  Steady  state  can  be  assumed  to  be  reached  in  four  time  constants  which  is  0.1  s. 
Thus,  the  model  in  the  code  was,  in  fact,  performing  properly  under  the  assumption  that 
the  fabric  is  passive.  Further,  an  earlier  study,  which  compared  the  fabric  model  to  the 
work  of  Armour  and  Cannon  [1,13]  showed  the  model  to  work  properly.  The  conclusion 
was  that  there  was  another  mechanism  at  work  in  the  experiment,  which  the  model  did  not 
account  for.  It  was  postulated  that  the  cotton  duck  was  not  a  passive  fabric  but  one  with 
characteristics  that  change  with  increased  humidity,  i.e.,  its  porosity,  surface 
area— to-volume  ratio,  pore  diameter,  and  thickness  all  changing  along  with  the  fact  that  it 
could  be  drawing  vapor  from  the  air  prior  to  becoming  saturated.  In  order  to  see  if 
something  of  this  sort  was  the  case  a  quick  test  was  run  with  a  nylon  fabric  which  was 
thought  to  be  more  stable.  Indeed,  as  shown  in  Fig.  24b,  the  test  showed  that  the 
humidity  in  the  chamber  tracked  the  inlet  humidity  closely.  No  values  for  the  fabric 
parameters  for  the  nylon  were  available  at  the  time  of  this  study  so  a  model  was  not 
attempted. 
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CONCLUSIONS 


The  code  is  a  useful  tool  for  modeling  turbulent  flow  in  situations  with  simple 
geometries,  its  strength  being  that  it  can  be  used  to  proof  test  physical  models  of  such 
things  as  fabrics,  experimental  configurations,  the  effects  of  different  injection  methods, 
etc.  The  fact  that  there  were  significant  differences  between  the  model  and  experiment 
appears  to  be  due  to  the  way  the  fabric  was  modeled.  The  model  used,  however,  is  the  best 
available.  Its  weakness  is  that  it  assumes  the  fabric  is  passive  when,  in  fact,  it  would 
appear  to  be  active,  i.e.,  its  properties  change  with  conditions.  This  fact  points  up  the 
need  for  further  study  of  fabric  behavior  in  changing  conditions  to  develop  modds  that  can 
be  effectivdy  used  with  codes  such  as  this. 
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APPENDIX  A 
Simpler  Code 

This  code  is  a  modification  of  an  earlier  SIMPLER  code  for  laminar  flow.  It  is 
called,  simply  enough,  TURBULENT.  It  has  been  modified  to  permit  the  solution  of 
turbulent  flow  problems  for  incompressible  fluids.  A  flow  chart  is  given  on  the  next  page 
with  the  important  differences  starred.  The  pages  of  the  code  on  which  the  changes  occur 
are  indicated.  The  pages  for  the  main  code  (the  solution  engine)  are  numbered  61—74.  The 
changes  are  indicated  by  an  arrow.  The  changes  are  merely  calls  to  ENTRY  points  in  the 
USER  routine  (DRIVER)  that  perform  computations  peculiar  to  the  two  equation  model  of 
turbulent  flow.  In  addition,  several  other  subroutines  have  been  developed.  The  parts  that 
the  analyst  is  responsible  for  appear  on  the  right  side  of  the  following  flow  chart.  Not  all 
the  user-developed  subroutines  indicated  in  the  chart  are  used  for  every  problem  studied. 

Three  input— output  devices  are  opened  in  the  main  program  and  one  in  the  user 
routine.  Device  15  uses  a  file  called  "INPUT”  for  input,  device  16  uses  a  file  called 
"OUTP"  for  printed  output,  device  17  uses  a  file  called  "PLOT15"  for  formatted  output 
to  be  used  with  the  contour  and  vector  plotting  programs,  and  device  12  uses  a  file  called 
"RESTART"  both  for  restarting  long  runs  and  for  saving  information  from  a  velocity 
analysis  for  use  in  a  mass  transport  analysis  of  contaminant. 
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A  flow  chart  showing  the  relation  of  the  user  routines  to  the  main  program  TURBULENT. 


TURBULENT  User  routines 

USER 
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A  word  of  explanation  about  interpolation  from  main  grid  points  to  velocity  grid 
points  is  required.  In  particular,  on  page  18  the  shear  stress  is  interpolated  from  the  main 
grid  points  to  the  u— velocity  grid  points.  Refer  to  the  following  figure, 


xcvi  1 

- XDIF- - 

XCV: 

- > 

2  1 

Y  * 

O 


-O 


S; 


i— l»j 


uij 


su 


Where  S  is  a  scalar  given  at  the  main  grid  points  0  and  is  interpolated  to  the  velocity 
grid  point  X  by 

S.(X]  =  Si-l,j  +  XCVi-l<Sij  -  Si_lj)/2  XDIFi 

=  (XCVj_j/2  •  XDIF.)  •  Sy  +  (1  -  XCVj_1/2*XDOFj)*Si_lj 

“  PXi-Si,j  +  FXMi-Si-l,j  . 

Similarly  for  the  y-direction. 
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FORTRAN  VARIABLES  IN  SIMPLER  ALGORITHM 


AIM( I  ,  J) 
AIP( I , J) 

A JM( I , J) 
AJP( I ,  J) 
APT 
ARX( J) 

ARX J ( J ) 
ARXJP( J ) 
CON( I, J) 

DIFF 

DT 

DU( I , J) 
DV( I , J  ) 

F( I , J , NF) 
FLOW 

FV( J)  and 

FX( I )  and 
FY < I )  and 
GAM( I , J) 

I 

IPREF 

1ST 

ISTF 

ITER 


Finite  difference  coefficient  A., 

w 

Finite  difference  coefficient  A-, 

£ 

Finite  difference  coefficient  Ag 
Finite  difference  coefficient  A^ 

Unsteady  flow  term  ^o  /  At 

Area  of  the  main  c.v.  face  normal  to  x  direction 

The  part  of  ARX(J)  that  overlaps  the  c.v.  for  V(I»J) 

The  part  of  ARX(J)  that  overlaps  the  c.v.  for  V(I,J+1) 

The  constant  term  in  the  f.d.  equation, 
also  used  for  Sc  in  GAMSOR  in  USER  routine 

Diffusion  term  GAM* area/d i 8 t ance  input  to  DIFLOW 

Time  step  for  transient  problems 

Du  influencing  U(I,J) 

DV  influencing  V(I,J) 

Array  containing  dependent  and  auxiliary  variables 

Mass  flow  rate  through  a  c.v.  face 

FVP(J)  permit  interpolation  froa  the  V  grid  to  the 
main  grid  through  relations  of  the  form 

grid  +  F*P(J)**(I,J+1)V  grld 
FXM(I)  as  above  but  interpolates  from  main  to  U  grid 
FYM(I)  as  above  but  interpolates  froa  main  to  V  grid 
The  diffusion  coefficient 
Index  denoting  position  in  x 
The  I  value  of  the  reference  pressure  point 
The  first  internal  point  value  of  I 
1ST  -  1 

Iteration  counter 
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J  Index  denoting  position  in  y 

JPREF  The  J  value  of  the  reference  pressure  point 

JST  The  first  internal  point  value  of  J 

JSTF  JST  -  1 

LAST  Maximum  number  of  iterations 

LPRINT(NF)  when  .TRUE.  ,  F(I,J,NF)  if  printed 
LSOLVE(NF)  when  .TRUE,  a  P.D.E.  is  solved  for  NF 
LSTOP  When  .TRUE,  computation  stops 

LI  Number  of  grids  in  x  direction 

L2  LI  -  1 

L3  LI  -  2 

MODE  Co-ordinates  1-planar,  2«=cyl  1  ndr  1  cal  ,  3=spherical 

Ml  Number  of  grids  In  y  direction 

M2  Ml  -  1 

M3  Ml  -  2 

NF  Index  denoting  the  variable 

NFMAX  Largest  value  of  NF  for  which  storage  is  assigned 

NGAM  NFMAX+2 ;  GAM(I,J)  is  equivalent  to  F(I,J,NGAM) 

NRHO  NFMAX+1;  RHO(I,J)  is  equivalent  to  F(I,J,NRHO) 

NTIMES(NF)  Number  of  sweeps  in  SOLVE  at  each  iteration  for 
each  dependent  variable 

P(I,J)  The  pressure,  p 

PCCl.J)  The  pressure  correction,  p' 

PT(  ),  QT(  )  Matrices  used  in  TDMA 

R( J)  The  radius  r  for  the  main  grid  point  I,J 

RELAX(NF)  Relaxation  parameters 

RHO(I,J)  The  density 
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RHOCON 
RMN ( J ) 
SMAX 
SSUM 
SX(  J) 

SXMN ( J ) 
TIME 

TITLE(NF) 
U( I, J) 

V( I, J) 

VOL 
X(  I) 

XCV( I  ) 

XC V 1(1) 
XCVIP( I) 
XCVS ( I ) 
XDIF( I) 

XL 

XU(I) 

Y(J) 

YCV( J) 
YCVR( J ) 
YCVRS( J ) 
YCVS( J) 
YDIF( J ) 

YL 

YV(  J) 


The  density  for  constant  density  problems 
The  value  of  r  at  V(I,J) 

The  largest  absolute  value  of  the  mass  error  in  a  c.v. 
Algebraic  sum  of  all  the  mass  errors 
Scale  factor  for  x  direction  at  Y(J) 

Scale  factor  for  x  direction  at  Y V ( J ) 

Time  for  unsteady  problems 

Title  of  variable  for  output  purposes 

The  x  direction  velocity 

The  y  direction  velocity 

Volume  of  the  c.v. 

Values  of  the  x  direction  grids 

Size  of  main  c.v.  in  the  x  direction 

Part  of  XCV(I)  that  overlaps  c.v.  for  U( I , J) 

Part  of  XCV(I)  that  overlaps  c.v.  for  U(I,J+1) 

As  XCV(I)  but  for  U  grid 
X(I)  -  X(I-l) 

x  direction  length  of  integration  region 
x  locations  of  U(I,J) 

Values  of  the  y  direction  grids 
Size  of  main  c.v.  in  the  y  direction 
Same  as  ARX(J) 

Area  of  v  c.v.  face  normal  to  x  direction 
As  YCV(J)  but  for  V  grid 
Y( J)  -  Y(J-l) 

y  direction  length  of  integration  region 
y  locations  of  V(I,J) 
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ooooooooo 


1 . 2 . 3 . 4 . 5 . 6 . 7 

- SIMPLER  ALGORITHM  - 

TURBULENT  FLOW 
CONSTANT  DENSITY 


IMPLICIT  REAL*8 (A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

LOGICAL  LSTOP 
COMMON/CNTL/LSTOP 
C 

OPEN (UNIT-15, FILE-' INPUT' , STATUS- 'OLD' ) 
OPEN (UNIT-16,  FILE-' OUTP' , STATUS-'OLD' ) 
OPEN (UNIT-17,  FILE-' PLOT15 ', STATUS-' OLD' ) 

C 

CALL  INPUT 
CALL  GRID 
CALL  SETUP 1 
CALL  START 
10  CALL  DENSE 
CALL  BOUND 
CALL  OUTPUT 
IF (LSTOP)  THEN 
CLOSE (UNIT-15,  STATUS-' KEEP'  ) 

CLOSE  (UNI.T-1 6, STATUS-' KEEP'  ) 

CLOSE (UNIT-17 , STATUS-' KEEP '  ) 

STOP 
END  IF 

CALL  SETUP 2 
GO  TO  10 
END 

C 

c - 

C - 

C - 

c 

SUBROUTINE  DIFLOW 
IMPLICIT  REAL*8 (A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

C 

COMMON /COEF/ FLOW, DIFF , ACOF 

C 

C 

TOL  -  1.0D-20 
ACOF  -  DIFF 

IF  (DABS (FLOW) .LT. TOL)  RETURN 
TEMP-DIFF-ABS (FLOW) *0.1 
ACOF-O. 

IF (TEMP . LE . 0 . )  RETURN 
TEMP-TEMP /DIFF 
ACOF-DIFF*TEMP**5 
RETURN 
END 
C 

C - 

C - 

c - 

C 

SUBROUTINE  SOLVE 
IMPLICIT  REAL*8(A-H,0-Z) 

IMPLICIT  INTEGER (I-N) 

C 

LOGICAL  LSOLVE, LBLK 
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o  o  o  o  o  o  o 


c 


C 


PARAMETER  ( ID-151, JD-151, NFD-7, NFP3-7 , MI J-151 ) 
COMMON/BLOCK/F (ID, JD, NFD) , GAM (ID, JD) , CON (ID, JD) . 

1  AIP (ID,  JD) , AIM (ID, JD) , AJP (ID, JD) , AJM(ID,  JD)  ,  AP (ID,  JD) 

2  X(ID) ,XU(ID) , XDIF (ID) , XCV (ID) , XCVS (ID) , 

3  Y  ( JD)  ,  YV  ( JD)  ,  YDIF  ( JD) ,  YCV  ( JD)  ,  YCVS  (JD)  , 

4  YCVR(JD)  ,  YCVRS  ( JD)  ,ARX(JD)  ,  ARXJ(  JD)  ,  ARXJP  ( JD)  , 

5  R  ( JD)  ,  RMN  ( JD)  ,  SX  ( JD)  ,  SXMN  ( JD)  ,  XCVI  (ID)  ,  XCVIP  (ID) 

COMMON  DU (ID, JD) ,DV(ID, JD) ,  FV ( JD) ,FVP ( JD) , 

1  FX (ID) , FXM (ID) , FY (JD) , FYM ( JD ) ,PT(MIJ) ,QT(MIJ) 

COMMON/ INDX/NF , NFMIN, NFMAX , NP , NRHO, NGAM, LI , L2 , L3 , Ml , M2 , M3 , 
1  1ST, JST, ITER , LAST , IPREF, JPREF,MODE,NTIMES (NFP3) 

COMMON / LOG I / L  SOLVE (NFP3) , LBLK (NFP3) 

COMMON/ VARI /TIME, DT, RELAX (NFP3) , RHOCON 
COMMON/ INOUT/ IN, 10 

DIMENSION  D (MIJ) , VAR(MIJ) , VARM(MIJ) ,VARP (MIJ) ,PHIBAR(MIJ) 


ISTF-IST-1 

JSTF-JST-1 

IT1-L2+IST 

IT2-L3+IST 

JT1-M2+JST 

JT2-M3+JST 


DO  999  NT-1, NTIMES(NF) 

DO  391  N-NF, NF 

IF ( . NOT . LBLK (NF ) ) GO  TO  60 


COME  HERE  TO  DO  BLOCK  CORRECTION 
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SUMMING  IN  I  DIRECTION 

DO  22  J— JST, M2 
VAR ( J) —0 . 

VARP ( J) — 0 . 

VARM( J) —0 . 

D ( J) —0 . 

DO  33  I— 1ST, L2 

VAR ( J) -VAR ( J) +AP (I,  J) 

IF ( I . NE . 1ST )  VAR ( J) -VAR ( J) -AIM ( I,  J) 

IF(I.NE.L2)  VAR ( J , — VAR( J) —AIP (I, J) 

VARM ( J) -VARM ( J) +A JM ( I , J) 

VARP ( J) -VARP ( J) +AJP ( I , J) 

J,+AIP (1' J) *F (1+1, J,N)+AIM(I, J) * 
2APa^Faf: S'J)*F(I'J+1'R)^(U,*F«I,J-M) 
33  CONTINUE 
CONTINUE 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) ) 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) ) 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) ) 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) ) 

PHIBAR (Ml ) — 0 . 

PHIBAR(JSTF)— 0. 

PT ( JSTF) -0  . 

QT (JSTF) -PHIBAR (JSTF) 

DO  44  J- JST, M2 
DENOM-VAR ( J ) -PT ( J - 1 ) * VARM ( J ) 

PT ( J) -VARP ( J) /DENOM 
TEMP-D(J) 

QT ( J) - (TEMP+VARM ( J) *QT(J-1) ) /DENOM 
CONTINUE 
DO  45  JJ— JST, M2 
J-JT1-JJ 

45  PHIBAR (J) -PHIBAR (J+l) *PT ( J) +QT ( J) 
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VAR (4 ) —1 . 
VARP ( 4 ) -0 . 
VARM (4) -0 . 
D  (4 )  —0  . 
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DO  47  I-IST,L2 
DO  47  J-JST,M2 

47  F(I, J,N)-F(I, J,N)+?HIBAR(J) 


SUMMING  IN  J  DIRECTION 


DO  51  I-IST,L2 
VAR(I)-0. 

VARP (I)-0 . 

VARM (I) “0  . 

D(I)-0. 

DO  53  J-JST,M2 

VAR (I) —VAR (I) +AP (1/ J) 

IF(J.NE.JST)  VAR ( I ) “VAR ( I ) -AJM ( I ,  J) 

IF ( J. NE .M2 )  VAR{I)-VAR(I) -AJP (I, J) 

VARP (I) -VARP (I)+AIP (I, J) 

VARM { I ) — VARM ( I ) +AIM ( I ,  J) 

D  (I)  -D  (I)  +CON  (I ,  J)  +AIP  (I, J) *F  (1+1, J,N)  + 

1AIM (I , J) *F (1-1, J, N) +AJP (I, J) *F(I,J+1,N) +AJM  (I , J) * 
2F (I, J-1,N) -AP (I, J) *F (I, J, N) 

53  CONTINUE 
51  CONTINUE 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VAR(4)-1. 

IF( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARP ( 4 ) — 0 . 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) )  VARM (4) -0. 

IF ( (NF.EQ.3) .OR. (NF.EQ.NP) )  D(4)-0. 

PHIBAR (LI) —0 . 

PHIBAR (ISTF) — 0 . 

PT (ISTF) -0 . 

QT (ISTF) -PHIBAR(ISTF) 

DO  57  I— 1ST, L2 

DENOM— VAR ( I ) -PT ( 1-1 ) *VARM(I) 

PT ( I ) -VARP ( I ) /DENOM 
TEMP-D(I) 

QT (I) - (TEMP+QT (1-1) *VARM(I> ) /DENOM 

57  CONTINUE 

DO  58  II— 1ST, L2 
I-IT1-II 

58  PHIBAR ( I ) -PHIBAR ( 1+1 ) *PT ( I ) +QT ( I ) 

DO  59  I— 1ST, L2 

DO  59  J— JST,M2 

59  F (I , J, N) — F ( I, J, N) +PHIBAR (I) 


60  CONTINUE 

DO  90  J— JST,M2 
PT (ISTF) -0 . 

QT (ISTF) -F (ISTF, J,N) 

DO  70  I-IST, L2 

DENOM-AP  (I,  J)  -PT  (1-1)  *AIM  (I,  J) 

c 

testd-abs (denom) 

if (testd.lt . 1 .e- 50) write (io, 6979)  nf , i, j, ap (i, j) 

6979  format (2x, ' solve,  nf,i,j,ap  r,3i5,el0.4) 
c 

PT (I) — AIP (I, J) /DENOM 

TEMP-CON ( I, J)+AJP (I, J) *F(I,J+1,N) +AJM  (I, J) *F(I,  J-1,N) 
QT ( I ) - ( TEMP  +AIM ( I , J ) *  QT ( I - 1 ) ) /DENOM 
70  CONTINUE 

DO  80  II-IST, L2 
I-IT1-II 

80  F  (I,  J, N)  — F  ( 1+1,  J,  N)  *PT  (I)  +QT  (I) 

90  CONTINUE 


DO  190  JJ-JST,M3 

T-JT2-JJ 

PT ( ISTF) —0 . 
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QT(ISTF)-F(ISTF, J,N) 

DO  170  I-IST,L2 

DENOM-AP ( I , J) -PT ( 1-1 ) *AIM ( I , J) 

PT (I) — AIP (I, J) /DENOM 

TEMP-CON (I, J) +AJP (I, J) *F (I, J+l, N) +AJM (I, J) *F (I,  J-l,  N) 
QT  <I)  —  (TEMP+AIM(I, J) *QT (1-1) ) /DENOM 
170  CONTINUE 

DO  180  II— 1ST, L2 
I— IT1-II 

180  F (I, J,N) — F (I+1,J,N) *PT (I) +QT (I) 

190  CONTINUE 


DO  290  I-IST, L2 
PT ( JSTF) -0 . 

QT ( JSTF) — F (I, JSTF , N) 

DO  270  J— JST, M2 

DENOM-AP ( I , J) -PT <  J- 1 ) *AJM { I , J) 

PT ( J) — AJP (I, J) /DENOM 

TEMP-CON (I, J) +AIP (I, J) *F (1+1, J, N) +AIM(I, J) *F(I-1,  J,  N) 
QT ( J) - (TEMP+AJM  (I,  J) *QT(J-1) ) /DENOM 
270  CONTINUE 

DO  280  JJ-JST,M2 
J-JT1-JJ 

280  F (I, J, N) — F (I, J+l, N) *PT { J) +QT ( J) 

290  CONTINUE 


DO  390  II-IST, L3 
I-IT2-II 
PT (JSTF) —0 . 

QT ( JSTF)-F (I, JSTF ,N) 

DO  370  J- JST, M2 

DENOM-AP (I, J)-PT< J-l) *AJM(I,J) 

PT ( J) -AJP ( I , J) /DENOM 

TEMP— CON ( I, J) +AIP (I,  J) *F  <1+1, J, N) +AIM (I, J) *F (1-1,  J,  N) 
QT  (  J)  - (TEMP+AJM (I, J) *QT ( J-l) ) /DENOM 
370  CONTINUE 

DO  380  JJ— JST,M2 
J-JT1-JJ 

380  F (I, J, N) — F (I,J+1,N) *PT ( J) +QT ( J) 

390  CONTINUE 

391  CONTINUE 

999  CONTINUE 
RETURN 


ENTRY  RESET 


DO  400  J- 2 , M2 
DO  400  1-2, L2 
CON (I , J) -0 . 

AP  ( I,  J)  —0  . 

400  CONTINUE 
RETURN 
END 


SUBROUTINE  SETUP 
IMPLICIT  REAL*8 (A-H,0-Z) 
IMPLICIT  INTEGER <I-N) 
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c 

c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 

c 

c 

c 


PARAMETER  {ID-151, JD-151,NFD-7, NFP3-7, MI J-151) 

LOGICAL  LSOLVE, LBLK,  LSTOP 

COMMON/ BLOCK/ F ( ID, JD, NFD) , GAM (ID, JD) , CON (ID, JD)  , 

1  AIP(ID, JD) , AIM (ID, JD) ,AJP(ID, JD) ,AJM(ID, JD) , AP (ID,  JD) , 

2  X  (ID)  ,  XU  (ID)  , XDIF  (ID) ,  XCV (ID)  ,  XCVS  (ID)  , 

3  Y  (JO)  ,  YV  ( JD)  ,  YDIF  ( JD)  ,  YCV  ( JD)  ,  YCVS  ( JD)  , 

4  YCVR(JD)  ,  YCVRS  (JD)  ,ARX(JD)  ,  ARX  J  ( JD )  ,  ARX  JP  ( JD )  , 

5  R  { JD)  ,  RMN  { JD)  ,  SX  ( JD)  ,  SXMN  ( JD)  ,  XCVI  (ID)  ,XCVIP  (ID) 

COMMON  DU (ID, JD) ,DV(ID, JD) ,  FV ( JD) , FVP ( JD) , 

1  FX(ID) ,FXM(ID) , FY ( JD) , FYM ( JD) , PT (MIJ) ,QT(MIJ) 

COMMON/ INDX/NF, NFMIN, NFMAX, NP , NRHO, NGAM, LI , L2 , L3,  Ml , M2 , M3 , 
1  1ST, JST, ITER, LAST, IPREF, JPREF, MODE, NTIMES (NFP3) 

COMMON/ LOGI /LSOLVE (NFP3) , LBLK (NFP3) 

COMMON/VARI/TIME, DT, RELAX (NFP3) , RHOCON 

COMMON/CNTL/LSTOP 

COMMON/SORC/SMAX,  SSUM 

COMMON /COEF/ FLOW, DIFF, ACOF 

COMMON/ INOUT/ IN,  10 

DIMENSION  U(ID, JD) ,V(ID, JD) ,PC(ID, JD) ,P(ID, JD) 

EQUIVALENCE  (F ( 1, 1 , 1) , U ( 1, 1 ) ) , (F ( 1, 1, 2 ) , V (1 , 1 ) ) , 

:  <F(1,1,3) , PC (1,1) ) , (F(l, 1, 4) ,P (1, 1) ) 

DIMENSION  CONS (ID,  JD,  2) , AIMS (ID, JD, 3) , AIPS (ID, JD, 3) , 

:  AJMS  (ID,  JD,  3) ,  AJPS  (ID,  JD,  3) ,  APS  (ID,  JD,  3) 

1  FORMAT (15X, 'COMPUTATION  IN  CARTESIAN  COORDINATES') 

2  FORMAT (15X, 'COMPUTATION  FOR  AXISYMMETRIC  SITUATION') 

3  FORMAT (15X, 'COMPUTATION  IN  POLAR  COORDINATES') 

4  FORMAT (14X, 40 (1H*) , //) 


ENTRY  SETUP 1 


NFMAX— NFD 
NRHO— NFD+1 
NGAM-NFD+2 
L2-L1-1 
L3-L2-1 
M2-M1-1 
M3-M2-1 
X (1) -XU (2 ) 

DO  5  1-2, L2 

5  X  (I)  — 0 . 5*  (XU  (1+1)  +XU  (I) ) 
X (LI) -XU (LI ) 

Y (1 ) -YV (2 ) 

DO  10  J-2,M2 

10  Y (J)-0.5* (YV ( J+l) +YV ( J) ) 
Y  (MI)  — YV  (Ml) 

DO  15  1-2, LI 

15  XDIF (I ) -X ( I ) -X (1-1 ) 

DO  18  1-2,  L2 
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18  XCV(I)-XU(I+1)-XU(I) 

DO  20  1-3, L2 
20  XCVS ( I ) — XDIF ( I ) 

XCVS ( 3 ) -XCVS ( 3 ) +XDIF ( 2 ) 

XCVS (L2 ) -XCVS (L2 ) +XDIF (LI ) 

DO  22  1-3, L3 
XCVI (I) -0 . 5*XCV (I) 

22  XCVIP (I)-XCVI (I) 

XCVIP ( 2 ) -XCV ( 2 ) 

XCVI (L2 ) -XCV (L2 ) 

DO  35  J-2 ,M1 
35  YDIF(J)“Y(J)-Y(J-1) 

DO  40  J-2, M2 
40  YCV ( J) — YV ( J+l ) -YV ( J) 

DO  45  J-3,M2 
45  YCVS ( J) -YDIF ( J) 

YCVS ( 3 ) -YCVS ( 3 ) +YDIF ( 2 ) 

YCVS (M2) -YCVS (M2) +YDIF(M1) 

IF (MODE .NE . 1)  GO  TO  55 
DO  52  J— 1 , Ml 
RMN ( J) —1 • 0 
52  R ( J) —1 . 0 
GO  TO  56 

55  DO  50  J-2, Ml 

50  R(J)— R( J-l) +YDIF ( J) 

RMN(2)-R(1) 

DO  60  J-3 ,  M2 

60  RMN ( J) —RMN (J-l) +YCV (J-l ) 

RMN (Ml) — R (Ml) 

56  CONTINUE 

DO  57  J-l, Ml 
SX(J)-1. 

SXMN ( J) —1 . 

IF (MODE. NE. 3)  GO  TO  57 
SX(J)-R(J) 

IF(J.NE.l)  SXMN (J) -RMN (J) 

57  CONTINUE 

DO  62  J-2, M2 

YCVR ( J) — R ( J) *YCV ( J) 

ARX(J)— YCVR(J) 

IF (MODE. NE. 3)  GO  TO  62 
ARX ( J) —YCV ( J) 

62  CONTINUE 

DO  64  J— 4 , M3 

64  YCVRS ( J) — 0 . 5* (R ( J) +R (J-l) )*YDIF(J) 
YCVRS (3) -0 . 5* (R (3) +R ( 1) )*YCVS(3) 
YCVRS (M2 ) -0 . 5  * (R (Ml ) +R (M3 ) ) * YCVS (M2 ) 
IF (MODE. NE. 2)  GO  TO  67 

DO  65  J-3, M3 

ARXJ ( J) —0.25* (1 . +RMN ( J) /R(J) ) *ARX(J) 

65  ARXJP (J) -ARX (J) -ARXJ (J) 

GO  TO  68 

67  DO  66  J-3, M3 
ARXJ ( J) — 0 . 5*ARX ( J) 

66  ARXJP (J) -ARXJ (J) 

68  ARXJP (2) -ARX (2) 

ARX J (M2 ) -ARX (M2 ) 

DO  70  J-3, M3 
FV(J) -ARXJP (J) /ARX ( J) 

70  FVP ( J) —1 . -FV ( J) 

DO  85  1-3, L2 

FX (I) -0 . 5* XCV (1-1) /XDIF (I) 

85  FXM (I ) -1 . -FX (I) 

FX(2)-0. 

FXM(2)«1. 

FX(L1)-1. 
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FXM(Ll)-0 . 

DO  90  J-3,M2 

FY ( J) -0 . 5*YCV ( J-l ) /YDIF ( J) 
90  FYM ( J) “1 . -FY { J) 

FY(2)-0 . 

FYM(2)-1 . 

FY(M1)-1. 

FYM (Ml ) “0 . 


CON, AP, U, V, RHO, PC  AND  P  ARRAYS  ARE  INITIALIZED  HERE 


DO  95  J-l, Ml 
DO  95  I— 1, LI 
PC(I, J)-0. 

0(1, J)-0. 

V(I, J)-0. 

CON  (I,  J)  — 0 . 

AP  (I,  J)  —0  . 

P(I, J)«0. 

95  CONTINUE 

RHO  -  RHOCON 

IF(MODE.EQ.l)  WRITE(I0,1) 
IF (MODE. EQ. 2)  WRITE (IO, 2) 
IF (MODE. EQ. 3)  WRITE(IO,3) 
WRITE (10,4) 

RETURN 


ENTRY  SETUP 2 


COEFFICIENTS  FOR  THE  U  EQUATION 


CALL  RESET 
C— — — — — 

NF-1 

IF ( .NOT .LSOLVE (NF) )  GO  TO  100 

IST-3 

JST-2 

C— — ........  ... 

CALL  GAMSOR 
C— — — — — — 

REL-1. -RELAX (NF) 

DO  102  1-3, L2 
FL— XCVI (I) *V (1,2) 

FLM-XCVIP ( I -1 ) * V (1-1,2) 

FLOW— R(l) * (FL+FLM) *RHO 

DIFF-R ( 1 ) * (XCVI ( I ) *GAM (1,1) +XCVIP ( 1-1 ) *GAM ( 1-1 , 1 ) ) / YDIF (2 ) 

CALL  DIFLOW 

C— — — — — — 

102  AJM(I, 2 ) — ACOF+DMAX1 (0 . 0D0,FLOW) 

DO  103  J«2,M2 

FLOW— ARX ( J) *U (2, J) *RHO 

DIFF-ARX ( J) *GAM  (1,  J) / (XCV (2) *SX ( J) ) 

C— — — - 

CALL  D I FLOW 

C - — — — - 

AIM  (3,  J) -ACOF+DMAX1 (0 .0D0,FLOW) 

DO  103  1-3, L2 
IF(I .EQ.L2)  GO  TO  104 
FL-U(I, J) *RHO 
FLP-U(I+1, J) *RHO 
FLOW- ARX ( J) *0 . 5* (FL+FLP) 
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DIFF-ARX ( J) *GAM (I,  J) / (XCV(I) *SX ( J) ) 

GO  TO  105 

104  FLOW-ARX(J) *U(L1, J) *RHO 

DIFF-ARX (J) *GAM (LI, J) / (XCV(L2) *SX(J) ) 
C— — - — - — - 

105  CALL  DIFLOW 


AIM (1+1 , J) — ACOF+DMAX1 (0 .ODO,FLOW) 

AIP (I, J) — AIM( 1+1, J) -FLOW 
IF ( J.EQ.M2)  GO  TO  106 
FL-XCVI {I ) *V  ( I, J+l) *RHO 
FLM-XCVIP <I-1)*V(I-1, J+l) *RHO 

GM— GAM(I,  J)  *GAM  (I,  J+l)  /  (YCV  ( J)  *GAM(I,  J+l)  +YCV  (J+l)  *GAM (I,  J)  + 

1  1.0D-30)*XCVI(I) 

GMM-GAM (1-1, J) *GAM(I-1, J+l) / (YCV ( J) *GAM(I-1, J+l) +YCV( J+l) * 

1  GAM(I-1, J) +1 .D-30) *XCVIP (1-1) 

DIFF-RMN (J+l) *2 . * (GM+GMM) 

GO  TO  107 

106  FL-XCVI (I) *V(I,M1) *RH0 
FLM-XCVIP (1-1) *V(I-1,M1) *RHO 

DIFF-R(Ml) * (XCVI (I) *GAM ( I , Ml ) +XCVIP (1-1) *GAM(I-1,M1) ) /YDIF(Ml) 

107  FLOW-RMN (J+l) * (FL+FLM) 


CALL  DIFLOW 


AJM ( I , J+l ) — ACOF+DMAX1 (0 .0D0,FLOW) 
A JP (I, J) -AJM (I, J+l) -FLOW 
VOL— YCVR ( J) *XCVS (I) 

APT-RHO* (XCVI (I) +XCVIP (1-1) ) 

1/ (XCVS (I) *DT) 

AP ( I ,  J) — AP ( I , J) -APT 

CON (I, J) —CON ( I, J) +APT*U (I, J) 


CALL  WALL 


AP ( I ,  J)  —  ( -AP ( I , J) *VOL+AIP (If  J) +AIM (I, J) +AJP (I, J) +AJM(I, J) ) 

1 /RELAX (NF) 

CON  (I,  J)  -CON  <  I,  J)  *VOL+REL*AP  (I,  J)  *U  (I,  J) 

DU (I, J) -VOL/ (XDIF (I) *SX ( J) ) 

DU (I, J)-DU(I, J)/AP(I, J) 
c 

testap-abs (ap (i, j) ) 

if (testap.lt . 0. le-50)  write (io, 6969) nf , i, j,ap(i, j) 

6969  format (2x, ' nf , i, j, ap  ',3i5,el0.4) 

c 

103  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCQ 

C 

DO  115  J  -  1,M1 
DO  115  I  -  1, LI 
AIPS (I, J, 1)  -  AIP (I, J) 

AIMS  (I,  J,  1)  -  AIM  (I,  J) 

AJPS  (I,  J,  1)  -  AJP(I,J) 

AJMS  ( I,  J,  1)  -  AJM  ( I ,  J ) 

APS  (I,  J,  1)  -  AP  (I,  J) 

CONS (I, J, 1)  -  CON ( I r  J ) 

115  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

TEMPORARY  USE  OF  PC(I,J)  TO  STORE  UHAT 

DO  151  J-2,M2 
DO  151  1-3, L2 

151  PC (I, J)-(AIP(I, J)*U(I+1, J)+AIM(I, J)*U(I-1, J)+AJP(I,  J)*U(I,  J+l)  + 
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1AJM  (I ,  J)  *U  (I,  J-l) +CON  (I,  J)  )  /AP  (I,  J) 
100  CONTINUE 


COEFFICIENTS  FOR  THE  V  EQUATION 


CALL  RESET 

C- - — — — — - 

NF-2 

IF ( .NOT . LSOLVE (NF) )  GO  TO  200 

IST-2 

JST-3 

CALL  GAMSOR 

REL— 1 . -RELAX (NF) 

DO  202  1-2, L2 
AREA-R(l) *XCV(I) 

FLOW-AREA* V (1,2) *RHO 
D IFF— AREA*GAM (1,1)/ YCV ( 2 ) 

CALL  D I FLOW 

202  AJM (I, 3) -ACOF+DMAX1 (0 .0D0, FLOW) 

DO  203  J-3, M2 
FL-ARX J ( J) *U ( 2 , J) *RHO 
FLM-ARXJP (J-l) *U(2, J-l) *RHO 
FLOW-FL+FLM 

DIFF- ( ARXJ ( J) *GAM (1, J) +ARXJP (J-l) *GAM(1, J-l) ) / (XDIF (2) *SXMN ( J) ) 
CALL  D I FLOW 

AIM (2, J) -ACOF+DMAX1 <0.0D0,FLOW) 

DO  203  1-2, L2 
IF ( I . EQ . L2 )  GO  TO  204 
FL-ARX J(J) *U(I+1, J) *RHO 
FLM-ARXJP (J-l) *U(I+1, J-l) *RHO 

GM— GAM (I, J) *GAM(I+1, J) / (XCV (I) *GAM(I+1, J) +XCV(I+1) *GAM(I,  J)  + 

1  1 ♦ D-30 ) *ARXJ ( J) 

GMM-GAM(I,  J-l)  *GAM(I+1,  J-l)  /  (XCV(I)  *GAM  (1+1,  J-l)  +XCV (1+1)  * 

1  GAM (I, J-l ) +1 . 0D-30 ) *ARXJP ( J-l ) 

DIFF— 2 . * (GM+GMM) /SXMN ( J) 

GO  TO  205 

204  FL-ARXJ(J) *U(L1, J) *RHO 
FLM-ARXJP (J-l) *U(L1, J-l) *RHO 

205  f^wIfL^FLMJ>*GAM<L1' J>+ARXJP<J_1)*GAM<L:L' J"1))/(XDIF<L1)*SXMN(J)) 

C— ——————— 


CALL  DIFLOW 
C - - - 


AIM (1+1 , J) — ACOF +DMAX1 (0 . 0D0 , FLOW) 
AIP (I, J)-AIM(I+1, J) -FLOW 
IF ( J. EQ .M2 )  GO  TO  206 
AREA-R(J) *XCV(I) 

FL-V (I, J) *RHO*RMN ( J) 

FLP— V ( I, J+l ) *RHO*RMN ( J+l) 

FLOW- (FV ( J) *FL+FVP ( J) *FLP) *XCV(I) 
DIFF-AREA*GAM (I , J) /YCV ( J) 

GO  TO  207 

206  AREA-R (Ml ) *XCV ( I ) 

FLOW— AREA*V (I, Ml) *RHO 
DIFF-AREA*GAM ( I , Ml ) /YCV (M2 ) 


207  CALL  DIFLOW 


AJM (I, J+l) -ACOF +DMAX1 (0 .ODO,FLOW) 
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A JP ( I ,  J) -AJM (I, J+l ) -FLOW 
VOL-YCVRS ( J) *XCV(I) 

APT- (ARXJ ( J) *RHO*0 . 5* (SX ( J) +SXMN ( J) ) +ARXJP ( J-l) *RHO* 

10 . 5*  (SX  < J-l) +SXMN  ( J) )  )  /  (YCVRS  ( J)  *DT) 

AP  (I,  J)  -AP  (I,  J)  -APT 

CON (I , J) -CON ( I, J) +APT*V ( I , J) 

c - 

CALL  WALL  -** - - - — - - - - — ~ — 

C - — — — 

AP  (I,  J)  —  (-AP  (I,  J)  +VOL+AIP  (I ,  J)  +AIM  (1,  J)  +AJP  (I ,  J)  +AJM (I,  J)  ) 
1/RELAX (NF) 
c 

testap-abs (ap (i, j) ) 

if (testap . It . 0 . le-50)  write (io, 6969) nf , i, j, ap (i, j) 
c 

CON (I, J) -CON (1/ J) *VOL+REL*AP (I,  J)  *V  (I,  J) 

DV (I, J) — VOL/YDIF ( J) 

DV ( I , J) -DV ( I ,  J) /AP (I,  J) 

203  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DO  209  J  -  1/ Ml 
DO  209  I  -  1,L1 
AIPS ( I ,  J,  2 )  -  AIP (I, J) 

AIMS  (I,  J,  2)  -  AIM  (I,  J) 

AJPS (I, J, 2)  -  A JP ( I ,  J ) 

AJMS ( I, J, 2 )  -  AJM (I, J) 

APS  ( I ,  J,  2 )  -  AP  (I ,  J) 

CONS (I, J, 2)  -  CON ( I , J ) 

209  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

200  CONTINUE 

COEFFICIENTS  FOR  THE  PRESSURE  EQUATION 
NF-NP 

IF ( .NOT . LSOLVE (NF) )  GO  TO  500 
1ST— 2 
JST-2 

DO  402  1-2, L2 
ARHO-R ( 1 ) *XCV ( I ) *RHO 
CON (1,2) — ARHO  * V ( 1 , 2 ) 

402  AJM (1,2) —0 . 

DO  403  J— 2, M2 
ARHO-ARX(J) *RHO 
CON ( 2 , J) -CON ( 2 , J) +ARHO+U ( 2 ,  J) 

AIM (2, J) -0 . 

DO  403  1-2, L2 
IF (I .EQ.L2)  GO  TO  404 
ARHO-ARX(J) *RHO 
FLOW-ARHO+PC (1+1, J) 

CON (I, J) -CON (I, J) -FLOW 
CON (1+1, J) -CON ( 1+1 , J) +FLOW 
AIP (I, J) -ARHO*DU(I+l, J) 

AIM  (1+1,  J)  -AIP  (I,  J) 

GO  TO  405 

404  ARHO-ARX { J) *RHO 
CON (I, J) -CON (I, J) -ARHO*U(Ll, J) 

AIP (I, J)-0. 

405  IF ( J.EQ.M2)  GO  TO  406 
ARHO-RMN ( J+l) *XCV (I) *RHO 

VHAT- (AIP (I , J+l) *V{ 1+1, J+l ) +AIM (I , J+l ) *V (1-1, J+l) +AJP ( I, J+l ) * 

IV (I, J+2)+AJM(I, J+l) *V(I, J)+CON(I, J+l) )/AP(I, J+l) 
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FLOW-ARHO*VHAT 

CON ( I , J) -CON ( I , J) -FLOW 

CON (I, J+l) -FLOW 

AJP (I, J)=ARHO*DV(I, J+l) 

AJM(I, J+1)-AJP (I, J) 

GO  TO  407 

406  ARHO-RMN (Ml) *XCV (I) *RHO 

CON { I , J) -CON ( I , J) -ARHO* V ( I , Ml ) 

AJP (I ,  J) =0 . 

407  AP (I, J) -AIP ( I ,  J  ) +AIM ( I ,  J) +A JP ( I , J) +AJM ( I, J) 
403  CONTINUE 


C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DO  409  J  -  1, Ml 
DO  409  I  =  1 ,  LI 
AIPS  (I,  J,  3)  -  AIP  (I,  J) 

AIMS (I, J, 3)  -  AIM<I,J) 

AJPS (I, J, 3)  -  AJP (I, J) 

AJMS (I, J, 3)  =  AJM(I,J) 

APS  (I , J,  3)  -  AP  (I ,  J) 

409  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


IF ( ITER . LE . 1 )  GO  TO  411 
DO  410  J-2 , M2 
DO  410  1-2, L2 
AP (I,  J) -AP (I, J) /RELAX (NP) 

CON (I , J) -CON ( I , J)  +  (1 . -RELAX (NP) )  *AP  (I,  J)  *P  (I,  J) 

410  CONTINUE 

411  CONTINUE 


CALL  SOLVE 

NF-1 

IST-3 

JST-2 

C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DO  412  J  =  1 , Ml 
DO  412  I  -  1, LI 
CON ( I , J)  =  CONS (I , J, 1 ) 

AIP ( I , J)  =  AIPS (I, J, 1 ) 

AIM ( I , J)  =  AIMS ( I , J, 1 ) 

AJP ( I , J)  -  AJPS (I , J, 1 ) 

AJM ( I , J)  -  AJMS ( I , J, 1 ) 

AP ( I , J)  -  APS ( I , J, 1 ) 

412  CONTINUE 


cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


DO  413  J-2 , M2 
DO  413  1-3, L2 

413  CON (I , J) -CON ( I, J) +DU ( I, J) *AP (I, J) * (P (1-1,  J) -P (I,  J) ) 


CALL  SOLVE 

NF-2 

IST-2 

JST-3 

C 

ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 

c 


DO  420  J  -  1 , Ml 
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DO  420  I  -  1, LI 

CON  <1 ,  J)  -  CONS  (I,  J,  2) 

AIP(I,J)  -  AIPS (I, J, 2) 

AIM  (I ,  J)  -  AIMS  (1/  J,  2) 

A JP ( I ,  J )  -  AJPS (I, J, 2) 

AJM  (I,  J)  -  AJMS  (1/  J,  2) 

AP  (1/  J)  -  APS  (I ,  J,  2 ) 

420  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

DO  424  J-3,M2 
DO  424  1-2, L2 

424  CON (I,  J) -CON ( I, J) +DV (I, J) *AP (I, J) * (P (I,  J-l) -P (I, J) ) 

C— — — — - - 

CALL  SOLVE 


COEFFICIENTS  FOR  THE  PRESSURE  CORRECTION  EQUATION 


CALL  RESET 


CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 

DO  430  J  -  1,M1 
DO  430  I  -  1, LI 
AIP  (I,  J)  -  AIPS  (I,  J,  3) 

AIM ( I , J)  -  AIMS ( I , J , 3 ) 

AJP  (I,  J)  -  AJPS  (I,  J,  3) 

AJM  ( I ,  J)  -  AJMS  (I,  J,  3) 

AP  ( I,  J)  -  APS  (I,  J,  3) 

430  CONTINUE 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

C 

NF-3 

IF ( . NOT . LSOLVE (NF ) )  GO  TO  500 

1ST— 2 

JST-2 

C— —————— 

CALL  GAMSOR 
C— — — — — — 

SMAX-0 . 

SSUM-0 . 

DO  460  J-2,M2 
DO  460  1-2, L2 
VOL-YCVR(J) *XCV(I) 

460  CON(I, J)-CON(I, J) *VOL 
DO  474  1-2, L2 
ARHO-R ( 1 ) *XCV ( I ) *RHO 
474  CON (1,2) -CON (1,2) +ARHO*V (1,2) 

DO  475  J«2,M2 

ARHO-ARX(J) *RHO 

CON (2, J) -CON (2, J) +ARHO*U (2 , J) 

DO  475  1-2, L2 
IF ( I . EQ . L2 )  GO  TO  476 
ARHO-ARX(J) *RHO 
FLOW-ARHO*U (1+1,  J) 

CON ( I , J) -CON ( I , J) -FLOW 
CON (1+1 , J) -CON (1+1, J) +FLOW 
GO  TO  477 

476  ARHO-ARX(J) *RHO 

CON ( I , J) -CON ( I , J) -ARHO*U ( LI ,  J) 

477  IF ( J.EQ.M2)  GO  TO  478 
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ARHO-RMN ( J+ 1 ) *  XCV (I) *RHO 
FLOW-ARHO*V (I, J+l) 

CON <  I ,  J) -CON ( I , J) -FLOW 
CON  (I,  J+l)  -CON  (I,  J+l)  +FLOW 
GO  TO  479 

478  ARHO-RMN (Ml) *XCV( I) *RHO 

CON ( I , J) -CON ( I , J) -ARHO* V ( I , Ml ) 

479  PC(I,J)-0. 

SMAX— DMAX1  (SMAX,  ABS  (CON  (I,  J) ) ) 
SSUM-SSUM+CON(I, J) 

475  CONTINUE 

CALL  SOLVE 


COME  HERE  TO  CORRECT  THE  VELOCITIES 

DO  501  J— 2,M2 
DO  501  1-2, L2 

IF (I .NE . 2 )  U (I, J) -U (I, J) +DU (I, J) * (PC {1-1, J) -PC (I, J) ) 
IF ( J.NE . 2)  V(I, J) «V(I, J) +DV (I, J) * (PC (I,  J-l) -PC (I,  J) ) 
501  CONTINUE 
500  CONTINUE 


CALL  GRADIENT 


COEFFICIENTS  FOR  OTHER  EQUATIONS 

1ST— 2 
JST-2 

DO  600  NF-NFMIN, NFMAX 
IF ( .NOT .LSOLVE (NF) )  GO  TO  600 
C— —————— — 

CALL  RESET 
C— —————— 

CALL  GAMSOR 
C— — — — — — 

REL-1. -RELAX (NF) 

DO  602  1-2, L2 
ARE A— R ( 1 ) *XCV(I) 

FLOW- AREA* V (1,2) *RHO 
DIFF— AREA*GAM(I, 1) /YDIF(2) 

CALL  DIFLOW 

602  AJM (I, 2) — ACOF+DMAX1 (0 . 0D0,FLOW) 

DO  603  J-2,M 2 

FLOW— ARX ( J) *U (2, J) *RHO  ) 

DIFF-ARX(J) *GAM(1, J) / (XDIF (2) *SX(J) ) 

C— — — — — 

CALL  DIFLOW 
C— — — — — — 

AIM  (2 ,  J) — ACOF +DMAX 1 (0 . 0D0 , FLOW) 

DO  603  1-2, L2 
IF (I.EQ.L2)  GO  TO  604 
FLOW-ARX ( J) *U (1+1, J) *RHO 

DIFF-ARX { J) *2 . *GAM ( I, J) *GAM (1+1, J) / ( (XCV ( I ) *GAM (1+1 ,  J)  + 
1  XCV (1+1) *GAM (I, J) +1 . 0D-30) *SX ( J) ) 

GO  TO  605 

604  FLOW-ARX (J) *U( LI, J) *RHO 

DIFF-ARX (J) *GAM(L1, J) / (XDIF (LI) *SX( J) ) 

C— —————— 

605  CALL  DIFLOW 

AIM (1+1 , J) —ACOF +DMAX1 (0 . 0D0 , FLOW) 
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AIP (I, J) -AIM <1+1, J) -FLOW 
ARE A-RMN ( J+ 1 ) *XCV ( I ) 

IF ( J.EQ.M2)  GO  TO  606 
FLOW-AREA+V ( I , J+l ) *RHO 

DIFF-AREA*2.*GAM(I, J) *GAM(I, J+l) / (YCV(J) *GAM(I, J+l)+ 
1  YCV (J+l) *GAM (I, J) +1 . 0D-30) 

GO  TO  607 

606  FLOW-AREA*V(I,Ml) *RHO 

D IFF- AREA* GAM ( I , Ml ) /YDIF(Ml) 


607  CALL  DIFLOW 
C—————— 

AJM ( I , J+l ) -ACOF+DMAX1 (O.ODO,FLOW) 

AJP (I, J)-AJM(I, J+l) -FLOW 
VOL-YCVR(J) *XCV(I) 

APT-RHO/DT 

AP  ( I ,  J)  “AP  ( I ,  J)  -APT 

CON (I, J) “CON (I, J) +APT*F (I, J, NF) 

O- - — - - — 

CALL  WALL  - - - - - 

C— — — — 

AP(I,  J)-(-AP{I,  J)  +VOL+AIP  (I,  J)  +AIM(I,  J)  +AJP  (1/  J)  +AJM  (I,  J)  ) 
1/RELAX (NF) 

c 

testap-abs (ap (i, j) ) 

if (testap. It .0.1e-50)  write (io,  6969)  nf ,  i,  j,  ap  (i,  j) 

c 

CON (I , J) “CON (I,  J) *VOL+REL*AP (I, J) *F(I, J.NF) 

603  CONTINUE 

C- - ; - 

CALL  SOLVE 
C— -- ■— — — - 
600  CONTINUE 

TIME-TIME+DT 

ITER-ITER+1 

IF ( ITER. GE. LAST)  LSTOP-.TRUE. 

RETURN 

END 
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APPENDIX  B 
User  Routine  for  Pipe  Flow 

The  USER  routine  for  turbulent  pipe  flow  is  given  in  this  appendix  along  with  the 
results  for  two  problems.  In  this  routine  much  of  the  data  is  defined  in  a  BLOCK  DATA 
section  of  the  code.  The  output  control  is  included  in  the  SUBROUTINE  USER  and  not  in 
a  separate  routine.  A  few  of  the  input  variables  need  explanation.  For  several  of  the  cases 
run  the  inlet  velocity  was  forced  to  be  a  power  law  distribution  that  mimicked  the 
empirically  determined  distributions  reported  in  the  literature  for  fully  developed  turbulent 
flow.  The  power  in  the  power  law  distribution  is  EN  in  the  code.  If  FVEL  =  1  then  the 
power  law  distribution  is  invoked.  If  it  =0  then  a  top  hat  velocity  distribution  is  used  at 
the  inlet.  For  the  first  ten  iterations  the  velocity  field  is  everywhere  set  equal  to  the  inlet 
distribution.  The  grid  is  nonuniform  in  the  radial  (  y  )  direction,  the  spacing  being 
exponential.  PWR  is  the  power  in  the  exponential  expression  for  the  grid  spacing.  The 
parameter  LAST  is  the  total  number  of  iterations  to  be  performed.  The  rest  of  the  input 
is  self-explanatory  and  the  listing  has  many  comment  statements  for  explanation  of  each 
section  of  the  routine. 

The  first  problem  for  which  output  is  given  is  CASE  1  in  the  report.  The  grid  has 
42  nodes  axially,  26  radially .  An  exponential  grid  spacing  with  PWR  =  4.4  is  used  and  a 
power  law  velocity  distribution  at  the  inlet  with  EN  =  9.0  is  used.  One  thousand 
iterations  were  performed  in  solving  the  problem.  The  validity  of  the  grid  spacing  is 
checked  by  looking  at  the  value  of  Y*  for  points  adjacent  to  the  pipe  wall.  As  can  be 
seen  in  the  output  file,  it  is  well  below  the  upper  limit  of  30.  The  parameter  DIST  is  the 
theoretical  distance  a  node  can  be  from  the  wall  and  ^till  have  Y~^  greater  than  11.5. 

Tie  other  problem  output  given  is  for  Case  3.  Ten  grid  nodes  are  used  in  each 
direction  with  the  velocity  grids  being  equally  spaced.  A  top  hat  inlet  velocity  distribution 
was  used.  Five  hundred  iterations  were  performed  to  obtain  the  solution.  This  is  an  exact 
replica  of  the  model  used  by  Pun  and  Spalding  [5]. 
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C 

c . 

c 

c  -  TUBE  VELOCITY  - 

C 

C  TURBULENT  FLOW 

C 

c . 

c 

BLOCK  DATA 

IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTER  TITLE *2 

LOGICAL  LSOLVE , LPRINT , LBLK, LSTOP, LPLOT,  LBUG 
PARAMETER  ( ID-101 , JD-101, NFD-6, NFP3-6, MI J-101 ) 

COMMON/BLOCK/F ( ID, JD, NFD) , GAM (ID, JD) , CON (ID, JD) , 

1  AIP(ID, JD) , AIM (ID, JD) ,AJP(ID, JD) ,AJM(ID, JD) , AP (ID, JD)  , 

2  X(ID)  ,  XU (ID) , XDIF ( ID ) , XCV ( ID) , XCVS (ID) , 

3  Y ( JD) , YV( JD) , YDIF ( JD) , YCV( JD) , YCVS ( JD) , 

4  YCVR(JD) , Y CVRS (JD) ,ARX(JD) ,ARXJ(JD) , ARX JP (JD) , 

5  R( JD) ,RMN( JD) ,SX(JD) , SXMN ( JD ) , XCVI (ID) ,XCVIP (ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV ( JD) , FVP ( JD) , 

1  FX (ID) , FXM (ID) , FY ( JD) , FYM( JD) , PT (MI J) ,QT(MIJ) 

COMMON/ INDX/NF, NFMIN, NFMAX, NP , NRHO, NGAM, LI , L2 , L3 , Ml , M2 , M3 , 

1  1ST,  JST, ITER, LAST, IPREF, JPREF, MODE,NTIMES (NFP3) 

COMMON/ LOGI /LSOLVE (NFP3) , LPRINT (NFP3) , LPLOT (NFP3) , LBLK (NFP3) 
COMMON /VARI/TIME,DT, XL, YL, RELAX (NFP3) ,RHOCON 
COMMON/TTLE /TITLE (NFP3) 

COMMON/ CNTL/ LSTOP 
COMMON/ SORC/SMAX, SSUM 
COMMON/COEF/FLOW, DIFF, ACOF 
COMMON/BUG/LBUG 
COMMON/ INOUT/ IN,  10 

DIMENSION  U(ID,  JD) ,V(ID, JD) ,PC(ID, JD) , P (ID, JD) , TKE (ID, JD) , 

:  TED (ID, JD) 

EQUIVALENCE  (F (1, 1, 1) ,0 (1, 1) ) ,  (F (1,  1, 2)  ,  V(1 , 1 ) )  , 

:  (F  (1,1, 3), PC  (1,1)),  <F(1,1,4),P(1,1)),  (F (1, 1, 5) , TKE (1 , 1) ) , 

:  (F(l,l,6), TED (1,1) ) 


F  (I ,  J,  1 ) 

- 

U 

F (I , J, 2 ) 

- 

V 

F (I,  J, 3) 

- 

PC 

F(I,J,4) 

- 

p 

F(I, J, 5) 

- 

TKE 

F(I, J, 6) 

- 

TED 

DATA  IN, 10/15, 16/ 

DATA  TITLE/'U' , 'V' , 'PC' , ' P' , ' KE' , ' ED' / 
DATA  NFMIN, NFMAX/ 5, 6/ 

DATA  NU,NV,NPC,NP,NKE, NED/1, 2, 3, 4, 5, 6/ 


DATA  LSOLVE (1  ), LPRINT (1 
DATA  LSOLVE (2  ), LPRINT (2 
DATA  LSOLVE (3  ), LPRINT (3 
DATA  LSOLVE (4  ), LPRINT (4 
DATA  LSOLVE (5  ), LPRINT (5 
DATA  LSOLVE (6  ), LPRINT (6 


) , LPLOT ( 1 
),  LPLOT (2 
) , LPLOT  (3 
) , LPLOT (4 
) ,  LPLOT (5 
),  LPLOT (6 


) / .true. 
) / .true. 
) / .true . 
) / .true . 
) / .true . 
) / .true . 


.FALSE. 
.  FALSE . 
.FALSE. 
.FALSE, 
.false . 
.FALSE. 


.FALSE./ 
.  FALSE . / 
.  false . / 
.  FALSE . / 
.  false . / 
.FALSE. / 


DATA  LBLK/NFP3* .FALSE . / 

DATA  LSTOP/ .FALSE./ 

DATA  TIME, DT, ITER/0.0,  l.E+20,  0.0/ 
DATA  LBUG/. false./ 

DATA  RELAX/0.5,0.5,0.8,0.8,1.,1./ 
DATA  NTIMES/6*10/ 


.  .  .PROBLEM  DATA 
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data  rhocon/1.00/ 

,  .GRID  DATA 

DATA  IPREF ,  JPREF/2,  2/ 

DATA  MODE/2/ 

END 

SUBROUTINE  USER 
IMPLICIT  REAL*8 (A-H,0-Z) 

CHARACTER  TITLE*2 

LOGICAL  LSOLVE , LPRINT , LBLK, LSTOP , LPLOT , LBUG 
PARAMETER  (ID-101,  JD-101, NFD-6, NFP3-6,MI J-101 ) 
COMMON/BLOCK/F (ID, JD, NFD) , GAM (ID, JD) , CON ( ID, JD> , 

1  AIP  (ID,  JD)  ,  AIM  (ID,  JD)  ,  AJP  (ID,  JD)  ,  AJM(ID,  JD)  ,  AP  (ID,  JD)  , 

2  X (ID)  ,  XU (ID) , XDIF (ID) , XCV ( ID) , XCVS  (ID) , 

3  Y(JD) , YV(JD) , YDIF ( JD) , YCV ( JD) ,YCVS(JD) , 

4  YCVR ( JD) , YCVRS ( JD) ,ARX(JD) , ARXJ ( JD)  ,  ARXJP ( JD)  , 

5  R  ( JD)  ,  RMN  ( JD)  ,  SX  ( JD)  ,  SXMN  ( JD)  ,  XCVI  (ID)  ,  XCVIP  (ID) 

COMMON  DU (ID, JD) ,DV(ID, JD) ,  FV ( JD) , FVP ( JD) , 

1  FX(ID) , FXM (ID) , FY ( JD) , FYM ( JD) , PT (MI J)  ,  QT  (MI J) 

COMMON /INDX/NF , NFMIN , NFMAX , NP , NRHO , NGAM , L 1 , L2 , L3 ,  Ml ,  M2 ,  M3 , 

1  1ST, JST, ITER, LAST, IPREF, JPREF, MODE, NTIMES (NFP3) 

COMMON/ LOGI /LSOLVE (NFP3) , LPRINT (NFP3) , LPLOT (NFP3) ,LBLK(NFP3) 
COMMON /VARI /TIME, DT, XL, YL, RELAX (NFP3) ,RHOCON 
COMMON/ TTLE /TITLE (NFP3) 

COMMON/ CNTL/LSTOP 
COMMON/SORC/SMAX, SSUM 
COMMON/COEF/FLOW, DIFF, ACOF 
COMMON/ BUG/ LBUG 
COMMON/ INOUT/ IN, 10 

DIMENSION  U(ID, JD) ,V(ID, JD) ,PC(ID, JD) , P (ID, JD) , TKE ( ID, JD) , 

:  TED  (ID,  JD) 

DIMENSION  AMUT(ID, JD) , TAUN (ID) , PLUN (ID) ,GK(ID, JD) 

DIMENSION  TAUNW (ID) , UOUF (ID) , YOYF (ID) , UOUMAX (ID)  ,  YOR ( ID)  , 

:  DELTA (ID) ,DY2 (ID) 

EQUIVALENCE  (F(1,1,1),U(1,1)),(F(1,1,2),V(1,1)), 

F  (I,  J,  1 )  -  U 
F  (I ,  J,  2 )  -  V 
F  (I,  J,  3)  -  PC 
F  (I,  J,  4)  -  P 
F(I, J, 5)  -  TKE 
F  (I,  J,  6)  -  TED 

.PROBLEM  DATA 


DATA  AMU/0.0001/ 

DATA  Cl , C2 ,  CD, CAPPA, ECON, PRTKE, PRTED/  1.43,  1.92,  0.09,  0.4,  9  0 

1.0, 1.3/ 

IF  (LBUG)  PRINT  *,"USER" 

ENTRY  GRID 


IF  (LBUG)  PRINT  *,  "ENTER  GRID" 

LI  NUMBER  OF  X  GRID  POINTS 

Ml  NUMBER  OF  Y  GRID  POINTS 

XL  LENGTH  IN  AXIAL  DIRECTION 

YL  LENGTH  IN  RADIAL  DIRECTION 

XINC  AXIAL  GRID  SPACING 
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c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


YINC  RADIAL  GRID  SPACING 

REYN  INPUT  REYNOLDS  NUMBER 

PWR  EXPONENT  FOR  EXPONENTIAL  GRID  SPACING 

EN  EXPONENT  FOR  POWER  LAW  INLET  VELOCITY  DIST 

IVEL  -1  POWER  LAW  INPUT  VELOCITY 

-0  TOP  HAT  INPUT  VELOCITY 


READ (15,*)  LAST 

READ (15,*)  LI,  Ml,  XL,  YL 

READ (15,*)  REYN,  IVEL,  PWR,  EN 

UAVG  -  REYN*AMU/ (RHOCON*2 . 0*YL) 

L2  -  LI  -  1 

L3  -  LI  -  2 

M2  -  Ml  -  1 


XINC  -  XL/ (Ll-2) 

XU(1)  =  0.0 
XU (2 )  -  0.0 
DO  1  I  -  2, LI 

XU(I+1)  -  XU (I)  +  XINC 
1  CONTINUE 


YV (2)  -  0.0 
YYY  «  0.0 

IF  (PWR  .LE.  l.e-20)  THEN 

UNIFORM  GRID 

YINC  -  YL/ (Ml-2 ) 

DO  2  J  -  3, Ml 
YV(J)  -  YV(J-l)  +  YINC 
2  CONTINUE 
ELSE 


EXPONENTIAL  GRID 

YINC  -  1.0/ (Ml-2) 

YCOR  -  YL*EXP (-PWR) 

DO  3  J— 3,  Ml 

YYY  -  YYY  +  YINC 

YV(J)  -  YL* (1.0  -  EXP ( -PWR* YYY) )  +  YCOR 
3  CONTINUE 
END  IF 

TURBULENCE  CONSTANTS 

CD5  -  CD**. 5 
CD25  -  CD**. 25 
CD75  -  CD**. 75 
C2M  -  C2  -  1.0 
TC2M  -  2 .  *C2  -  1.0 

RETURN 


ENTRY  START 


IF  (LBUG)  PRINT  *,  "ENTER  START" 
C 

C  OPEN  RESTART  FILE 

C 


OPEN (UNIT-12,  FILE-' RESTART' , FORM-' UNFORMATTED' ) 


DO  10  K  -  1,NFD 
DO  10  J  -  1 ,M1 


DO  10  I  -  1,  LI 
F (I, J, K)  -  0.0 
10  CONTINUE 

C 

C  STARTING  VELOCITY  DISTRIBUTION 

C  BASED  ON  THE  POWER.  LAW 

C  U/Umax  *=  (1  -  r/R)  ** (1/n) 

C 

IF  (IVEL  .EQ.  0)  EN  -=  1.E30 

UCTR  •=  UAVG*  (1.0  +  1.5/  EN  +  0.5/EN**2) 

C 

DO  11  J  -  1,M2 
DO  11  I  -  1, LI 

U(I,J)  =  UCTR* (1.0  -  Y { J) /Y (Ml) ) ** (1 . /EN) 

TK£(I,J)  -  0.005*0(1, J) **2 

TED (I, J)  -  CD*TKE (I,J)**1.5/ (0.03*Y (Ml) ) 

11  CONTINUE 
C 

RETURN 

C 

C  - 

ENTRY  DENSE 

C  - 

IF  (LBUG)  PRINT  *,  “ENTER  DENSE" 

C 

DO  200  J  -  1, Ml 
DO  200  I  =  1, LI 

AMUT (I, J)  -  CD*RHOCON*TKE (I, J) **2/ (TED (I,J)+l.E-20) 
200  CONTINUE 
RETURN 

C 

C  - 

ENTRY  BOUND 

C  - 

IF  (LBUG)  PRINT  *,  "ENTER  BOUND" 

IF  (ITER  .LT.  10)  THEN 
DO  250  J  -  1,M2 
DO  250  I  -  1, LI 

U(I,J)  -  UCTR* (1.0  -  Y(J)/Y(M1))**(1./EN) 

250  CONTINUE 

END  IF 
C 

C... BOUNDARY  CONDITIONS 
C 

C  U  -  VELOCITY 

C 

DO  300  I  -  2, LI 

0(1,1)  -  U (I , 2 ) 

U ( I , Ml )  -  0.0 

300  CONTINUE 

DO  302  J-1.M2 

U(2,J)  -  UCTR* (1.0  -  Y(J)/Y(M1 ))**(!. /EN) 

U (LI , J)  -  U(L2,J) 

302  CONTINUE 
C 

C  V  -  VELOCITY 

C 

DO  303  I  -  1, LI 
V ( 1 , 2 )  -  0.0 
V(I, Ml )  -  0.0 

303  CONTINUE 

DO  304  J  -  2, Ml 
V(1,J)  -  0.0 
V (LI , J)  -  0.0 

304  CONTINUE 


C 
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C  P  -  PRESSURE  &  PRESSURE  CORRECTION 

C 

do  305  j  -  2, m2 

p(ll,j)  -  (p(12, j) *xcvs (12) -p (13, j)*xdif (ll))/xdif (12) 
p(l,j)  “  (P (2, j) *xcvs (3) -p (3, j) *xdif (2) ) /xdif (3) 

305  continue 

do  306  i  -  2,12 

p (i, 1)  -  (p  (i, 2) *ycvs (3) -p (i, 3) *ydif (2) ) /ydif (3)  . 

p(i,ml)  -  (p  (i,m2)  *ycvs  (m2) -p,(i,m3)  *ydif  (ml) ) /ydif  (m2) 

306  continue 

p(l/l)  “  P ( 2 , 1 ) +p ( 1 »  2 ) -p ( 2 , 2 ) 
p(ll,l)  -  p(12,l)+p(ll,2)-p(12,2) 
p  (l,ml)  -  p(2,ml)+p(l,m2)-p(2,m2) 
p ( 1 1 , ml ) ~  p(12,ml)+p(ll,m2)  -p(12,m2) 

C 

C  TURBULENT  ENERGY 

C 

DO  350  J  -  1, M2 

TKE (1, J)  -  0 . 005*U(2, J) **2 

TED (1, J)  -  CD*TKE (1,J)**1.5/(0.03*Y (Ml) ) 

TKE (LI, J)  -  TKE (L2 , J) 

TED (LI, J)  -  TED (L2 , J) 

350  CONTINUE 
C 

DO  352  I  -  1, LI 

TKE (1,1)  -  TKE (1,2) 

TED (1,1)  -  TED (1,2) 

352  CONTINUE 
C 

C  WALL  STRESS 

C 

C  SHEAR  STRESS /VELOCITY  6  Y+  AT  OUTER  RADIUS 

C 

DO  360  I  -  2,L2 

DIST  -  Y(M1)  -  Y(M2) 

CT  -  CD25*DIST 

RK  -  RHOCON*SQRT (ABS (TKE (I, M2 ) ) ) 

PLUN(I)  -  RK*CT/AMU 
IF  (PLUN(I)  .GT.  11.5)  THEN 
EPLUN  -  ECON*PLUN (I) 

TAUN(I)  -  CAPPA*RK*CD25/DLOG (EPLUN) 

ELSE 

TAUN(I)  -  AMU/DIST 
ENDIF 
C 

C  THE  APPROPRIATE  DISTANCE  FROM  THE  WALL  FOR 

C  THE  MAIN  GRID  NODE  NEAREST  THE  WALL 

C 

’  DELTA (I)  -  12 . 0*AMU/ (RK+CD25  +  l.e-20) 

360  CONTINUE 
RETURN 

C  - 

ENTRY  GRADIENT 
c  - 

C  COMPUTE  GENK-GK (I,  J)  AT  MAIN  GRID  POINTS  FOR  USE 

C  IN  TURBULENT  ENERGY  AND  DISSIPATION  EQUATIONS 

C 

DO  402  J  -  2, M2 
DO  402  I  -  2,L2 

UPX  -  <U(I+1,J)  -  U(I, J) ) /XCV(I) 

VPY  -  (V(I,J+1)  -  V(I, J) ) /YCV(J) 

VOR  -  0 . 5* (V (I, J+l )  +  V(I,J))/Y(J) 

cccc  UPY  -  0.5*(U(I+1, J+l)  -  U(I+1,J-1)  +  U(I,J+1)  -  U (I, J-l) ) 

cccc  :  / (Y (J+l)  -  Y(J-l)) 

FAC1  -  ( YV (J+l )  -  Y(J) ) /YDIF (J+l) 

FAC2  -  ( YV ( J)  -  Y (J-l) ) /YDIF ( J) 


UNEC  -  U(I,J)  +  (U  (I , j+l J  -  U(I,J))*FAC1 
USEC  -  U(I,J-1)  +  (U (I, J)  -  U(I, J-l) )*FAC2 
UNWC  -  U(I+1,J)  +  (U ( 1+1 , J+l )  -  U (1+1, J) ) *FAC1 
USWC  =  U(I+1,J-1)  +  (U(I+l,j)  -  U(I+1, J-l) ) *FAC2 
UPY  -  0.5* (UNEC  -  USEC  +  UNWC  -  USWC)/YCV(J) 

5* (V(I+1, J+l)  -  V(I-1,J+1)  +  V (1+1 , J)  -  V(I-1, 
/ (X(I+1)  -  X(I-l) ) 

“  AMUT(I, J)*(2.*(UPX*UPX  +  VPX+VPX  +  VOR*VOR) 
+  (UPY  +  VPX) **2) 


VPX 


GK ( I ,  J ) 


C 

C 

C 

c 

c 

c 


c 

c 

c 

510 


511 

512 

514 


C 

c 

c 

520 


C 

C 

C 

C 

C 

530 


402  CONTINUE 
RETURN 


ENTRY  GAMSOR 


s  =  SC  +  SP*U  SO,  AP  -  SP  &  CON  -  SC 

IF  (LBUG)  PRINT  *,  "ENTER  GAMSOR" 

GO  TO  (510, 520, 530, 599, 550, 560) ,NF 

U  -  VELOCITY 

CONTINUE 
DO  512  J  -  1,  Ml 
DO  511  I  -  1,L1 

GAM (I, J)  -  AMU  +  AMUT ( I, J) 

CONTINUE 
GAM (LI, J)  -  0.0 
CONTINUE 
DO  514  I  -  2, LI 
GAM (1,1)  -  0.0 
CONTINUE 

RETURN 

V  -  VELOCITY 

DO  521  J  -  1,M1 
DO  521  I  -  1, LI 

GAM (I , J)  -  AMU  +  AMUT (I, J) 

GAM (1 , J)  -  0.0 
CONTINUE 
RETURN 

PRESSURE  CORRECTION 

ADJUST  U  TO  CONSERVE  MASS  FLOW 

CONTINUE 

QIN  -  0.0 

DO  531  J  -  2, Ml 

DY2 (J)  -  Y ( J) **2  -  Y (J-l) **2 

continue**  +  (U(2'J"1)  +  U<2,J))*DY2<J) 

DO  533  I  -  3, LI 
QOUT  -  0.0 
DO  532  J  -  2, Ml 

QINOUT  -  QIN/QOUT 
DO  533  J  -  1,M2 

U(I,J)  -  U(I, J)*QINOUT 
CONTINUE 
RETURN 
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521 


531 


532 


533 


J)  ) 


C  TKE  -  TURBULENT  KINETIC  ENERGY 

C 

C  SOURCE  TERMS 

C 

550  CONTINUE 

DO  551  J  -  2, M2 
DO  551  I  -  2,L2 

RHOTED  -  RHOCON*TED (I, J) 

CON (I, J)  -  1 . 5*GK (I, J)  +  C2M*RHOTED 

AP  ( I ,  J)  -  -  (0 . 5*GK  ( I,  J)  +  C2*RHOTED)  /  (TKE  (I,  J)  +1  .E-20) 
551  CONTINUE 
C 

C  WALL  TERMS 

C 

DO  553  I  -  2, L2 

UP  -  0 . 5*  (U  (1+1,  M2 )  +  U  ( I ,  M2 ) ) 

UPY  -  UP/YDIF (Ml ) 

TAUNW(I)  -  TAUN (I) *UP 
CON ( I , M2 )  -  TAUNW(I) *UPY 

AP (I, M2)  -  -CD*RHOCON**2*TKE (I, M2) *UPY/ (TAUNW(I) +1 .E-20) 
553  CONTINUE 

DO  555  J  -  1,M1 

DO  555  I  -  1, LI 

GAM (I, J)  -  AMU  +  AMUT ( I ,  J) /PRTKE 

555  CONTINUE 

DO  556  I  -  1, LI 
GAM (1,1)  -  0.0 

556  CONTINUE 

DO  557  J  -  1, Ml 
GAM (LI ,  J)  -  0.0 

557  CONTINUE 
RETURN 

C 

C  TED  -  TURBULENT  ENERGY  DISSIPATION 

C 

C  SOURCE  TERMS 

C 

560  DO  561  J  -  2, M2 
DO  561  I  -  2,L2 

TEOK  -  TED (I, J) / (TKE (I, J)+l .E-20) 

RHOTED  -  RHOCON*TED ( I , J) 

CON (I, J)  -  (C1*GK(I, J)  +  C2M*RHOTED) *TEOK 
AP ( I ,  J)  -  -TC2M*RHOCON*TEOK 
561  CONTINUE 
C 

C  WALL  TERMS 

C 

DO  563  I  -  2,L2 

CON ( I , M2 )  -  CD75*ABS(TKE(I,M2)**1.5)*1.E30 
:  / (CAPPA*YDIF (Ml) ) 

AP (I, M2)  -  -1.E30 
563  CONTINUE 

DO  565  J  -  1 , Ml 
DO  565  I  -  1,  LI 

GAM (I, J)  -  AMU  +  AMUT ( I, J) /PRTED 

565  CONTINUE 
DO  566  I  -  1, LI 

GAM (I, 1)  -0.0 

566  CONTINUE 
DO  567  J  -  1,M1 

GAM (LI, J)  -  0.0 

567  CONTINUE 
RETURN 

C 

599  RETURN 
C 
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c  - 

ENTRY  WALL 

C  - 

C 

C  AJP  -  An,  AJM  -  As,  AIP  -  Ae,  AIM  -  Aw 

C 

GOTO  (700,720,799,799,750,760),  NF 

C  - 

C 

C  U  -  VELOCITY 

C 

700  DO  702  I  -  2,L2 

AJP ( I , M2 )  -  (TAUN(I-l) *FXM(I)  +  TAUN(I) *FX(I) ) *XDIF (I) *Y (Ml) 
702  CONTINUE 
RETURN 
C 

C  V  -  VELOCITY 

C 

720  CONTINUE 
RETURN 
C 

C  TKE  -  TURBULENT  KINETIC  ENERGY 

C 

750  CONTINUE 
RETURN 

C 

C  TED  -  TURBULENT  ENERGY  DISSIPATION 

C 

7  60  CONTINUE 

RETURN 
799  RETURN 

C  - 

ENTRY  OUTPUT 

C  - 

IF  (LBUG)  PRINT  *,  "ENTER  OUTPUT" 

C 

IF  ( ITER. NE. LAST)  RETURN 
C 

C  CREATE  RESTART  FILE 

C 

REWIND  12 
WRITE (12)  ITER 
DO  20  K  -  1,NFD 
DO  20  J  -  1, Ml 
DO  20  I  -  1, LI 

WRITE  (12)  F (I, J, K) 

20  CONTINUE 

C 

CLOSE (UNIT-12,  STATUS-' KEEP' ) 

REFP  -  P (LI, 2) 

DO  22  J  -  1,M1 
DO  22  I  -  1, LI 

P(I,J)  -  P(I,J)  -  REFP 

22  CONTINUE 
C 

C  RATIO  OF  VOLUME  INFLOW  TO  VOLUME  OUTFLOW 

C 

QOUT  -  0.0 
DO  23  J  -  2, Ml 

QOUT  -  QOUT  +  (U (Ll-1 , J-l )  +  »  (Ll-1, J) ) *DY2 (J) 

23  CONTINUE 

QINOUT  -  QIN/ (QOUT  +  1.0e-20) 

C 

LOUT  -  LI  -  3 
DO  24  J  -  1, Ml 

UFRIC  -  SQRT (TAUNW (LOUT) /RHOCON)  +  1.0E-20 
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YFRIC  -  AMU/SQRT (RHOCON*TAUNW (LOUT) )  +  1.0E-20 
OOUF(J)  -  U (LOUT, J) /UFRIC 
YOYF(J)  -  (Y (Ml)  -  Y(J)) /YFRIC 
UOUMAX(J)  -  U (LOUT, J) /U (LOUT, 1) 

YOR(J)  -  Y ( J) /Y (Ml) 

24  CONTINUE 
C 

NH  -  Ml/2  +  1 
NL  -  Ll/2  +  1 
606  FORMAT (7 (IX, e9. 3) ) 

WRITE (10, 612)  QINOUT 
612  FORMAT (/5X, 'QIN/QOUT  ,F6. 2) 

WRITE (10, 614) 

614  FORMAT (/5X, 'MID -LENGTH  U  DISTRIBUTION',/) 

WRITE (10, 606)  (U(NL, J) , J-1,M1) 

WRITE (10, 615) 

615  FORMAT (/5X, 'AXIAL  U  DISTRIBUTION',/) 

WRITE (10, 606)  (U(I,1) ,1-2, LI) 

WRITE (10, 616) 

616  FORMAT (/5X, 'LEFT  -  U  DISTRIBUTION',/) 

WRITE (10, 606)  (U(2, J) , J-1,M1) 

WRITE (10, 618) 

618  FORMAT (/5X, 'RIGHT  -  U  DISTRIBUTION',/) 

WRITE(IO, 606)  (U(L1, J) , J-1,M1) 

WRITE (10, 619)  REYN 

619  FORMAT (//,2X, 'REYNOLDS  NUMBER  -  ',E10.4,//, 

:  5X, '  (YMAX-Y) /YFRIC' ,  /) 

WRITE (10, 606)  (YOYF(J),  J-1,M1) 

WRITE (10, 620) 

620  FORMAT (//, 5X, 'U/UFRIC  AT  I  -  LI  -  3',/) 

WRITE (10, 606)  (UOUF(J),  J-1,M1) 

WRITE (10, 621) 

621  FORMAT (//, 5X, ' Y ( J) /Y (Ml) '  ,  /  )  • 

WRITE (10, 636)  (YOR(J),  J-1,M1) 

WTJTTF  (TO  fiOON 

622  FORMAT (//, 5X, 'U/UMAX  AT  I  -  LI  -  3',/) 

WRITE (10, 606)  (UOUMAX(J),  J-1,M1) 

WRITE (10, 625) 

625  FORMAT (/5X, 'X  NODE  LOCATIONS',/) 

WRITE (10, 636)  (X (I) , 1-1 , LI) 

WRITE (10, 626) 

626  FORMAT (/5X, 'Y  NODE  LOCATIONS' ,/) 

WRITEUO,  636)  (Y  (I)  ,  I-1,M1) 

WRITE (10, 627) 

627  FORMAT (/5X, 'XU  LOCATIONS' ,/) 

WRITE (10, 636)  (XU (I) , 1-1, LI) 

WRITE (10, 628) 

628  F0RMAT(/5X, 'YV  LOCATIONS' ,/) 

WRITF (10, 636)  ( YV (I ) , I“l,  Ml ) 

636  FORMAT (8 (IX, F8. 5)) 

WRITE (10, 640)  DIST 

640  FORMAT (//,5X, 'I,  Y+,  TAU/U,  TAU,  DELTA, 

:  elO . 4, , /) 

DO  60  I  -  1,L1 

WRITE (10, 642)  I,PLUN(I) ,TAUN(I) ,TAUNW(I) , DELTA (I) 
642  FORMAT (4X, 12, 3 (IX, F8. 2) , IX, ElO. 4) 

60  CONTINUE 

WRITE (10, 644) 

WRITEUO,  606)  (TKE(1,J),  J-1,M1) 

644  FORMAT (//,5X,'TKE  AT  I  -  1',/) 

WRITE (10, 645) 

WRITEUO,  606)  (TED(1,J),  J-1,M1) 

645  FORMAT (//,5X, 'TED  AT  I  -  l',/> 

WRITEUO,  646) 

WRITE (10, 606)  (TKE (NL, J) ,  J-1,M1) 

FORMAT (//, 5X, 'TKE  AT  MID-LENGTH',/) 
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DIST  -', 


646 


WRITE  (10,  64*7) 

WRITE (10, 606)  (TED (NL, J) , 

647  FORMAT (//,5X, 'TED  AT  MID-LENGTH',/) 

WRITE (10, 648) 

WRITE (10, 606)  (TKE (LOUT, J) ,  J-1,M1) 

648  FORMAT (// , 5X, 'TKE  AT  I  -  LI  -  3',/) 

WRITE (10, 649) 

WRITE (10, 606)  (TED (LOUT, J),  J«1,MI) 

649  FORMAT (//,5X, 'TED  AT  I  -  LI  -  3',/) 

WRITE  (10,  656)  LAST,  LI,  Ml 

656  FORMAT (/5X, 'NO.  ITERATIONS  -' , 

+  15, 2X, 'Ll, Ml  -  ' ,213,/) 

WRITE (10, 657) (I, NTIMES ( I) , 1-1, NFP3) 

657  FORMAT ( /2X, ' EQN  SWEEPS' , /, 6 (5X, 12, IX, 12) ) 

IF  (ITER. EQ. LAST)  LSTOP- . TRUE . 

C 

C  WRITE  DATA  TO  FILE  17  FOR  USE  BY  PLOT  PACKAGE 

C 

WRITE (17, 680)  LI, Ml 
WRITE (17, 681)  (X(I) ,1-1, LI) 

WRITE(17, 681)  (Y (I) , 1*1, Ml) 

WRITE(17, 681)  (XU(I) , I-1,L1) 

WRITE (17,681)  (YV(I) ,1-1, Ml) 

RHO-RHOCON 

DO  4000  J  -  1, Ml 

WRITE (17, 682)  (RH0,I-1,L1) 

C  WRITE (10, 606)  (CON (I, J) , I-LFAB, L3) 

4000  CONTINUE 

DO  4010  J  -  1, Ml 

WRITE (17 , 682 )  (U (I, J) , 1-1, LI) 

4010  CONTINUE 

DO  4020  J  -  1,M1 

WRITE (17, 682)  (V  (I,  J)  ,  1-1, LI ) 

4020  CONTINUE 

DO  4030  J  -  1 , Ml 

WRITE(17, 682)  (F (I, J, 5) , 1-1, LI) 

4030  CONTINUE 

680  FORMAT (IX, 215) 

681  FORMAT (7 (IX,  E10 . 4)  ) 

682  FORMAT (6 (IX, E12. 6)) 

RETURN 

END 
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COMPUTATION  FOR  AXISYMMETRIC  SITUATION 


QIN/QOUT  «  1.00 
MID-LENGTH  U  DISTRIBUTION 

0.279E+03  0 . 279E+03  0.276E+03  0.273E+03  0.269E+03  0.266E+03  0.262E+03 
0 . 258E+03  0.254E+03  0.249E+03  0.245E+03  0.240E+03  0.235E+03  0.230E+03 
0 . 224E+03  0 . 219E+03  0.213E+03  0.206E+03  0.199E+03  0.192E+03  0.184E+03 
0 . 174E+03  0 . 162E+03  0.147E+03  0.118E+03  0.000E+00 

AXIAL  U  DISTRIBUTION 

0 . 293E+03  0.289E+03  0.289E+03  0.288E+03  0.288E+03  0.287E+03  0.287E+03 
0 . 286E+03  0 . 286E+03  0.285E+03  0.285E+03  0.284E+03  0.283E+03  0.283E+03 
0 . 282E+03  0 . 281E+03  0.281E+03  0.280E+03  0.280E+03  0.279E+03  0.279E+03 
0.278E+03  0 . 278E+03  0.277E+03  0.277E+03  0.277E+03  0.277E+03  0.277E+03 
0.27 6E+03  0 . 27  6E+03  0.276E+03  0.276E+03  0.276E+03  0.277E+03  0.277E+03 
0 . 277E+03  0 . 277E+03  0.277E+03  0.277E+03  0.277E+03  0.277E+03 

LEFT  -  U  DISTRIBUTION 

0 . 293E+03  0 . 290E+03  0.284E+03  0.278E+03  0.272E+03  0.267E+03  0.261E+03 
0 . 256E+03  0 . 250E+03  0.245E+03  0.240E+03  0.235E+03  0.229E+03  0.224E+03 
0.219E+03  0 . 214E+03  0.208E+03  0.203E+03  0.197E+03  0.191E+03  0.185E+03 
0 . 173E+03  0 . 170E+03  0.159E+03  0.139E+03  0.000E+00 

RIGHT  -  U  DISTRIBUTION 

0 . 277E+03  0 . 277E+03  0.276E+03  0.273E+03  0.270E+03  0.267E+03  0.262E+03 
0 . 258E+03  0 . 253E+Q3  0.248E+03  0.244E+03  0.238E+03  0.233E+03  0.228E+03 
0 . 223E+03  0 . 217E+03  0.212E+03  0.206E+03  0.200E+03  0.194E+03  0.186E+03 
0 . 178E+03  0 . 168E+03  0.152E+03  0.128E+03  O.OOOE+OO 


REYNOLDS  NUMBER  »  0.5000E+06 
(YMAX-Y) /YFRIC 

0 . 988E+04  0 . 899E+04  0.741E+04  0.615E+04  0.510E+04  0.423E+04  0.350E+04 
0.289E+04  0 . 239E+04  0.197E+04  0.162E+04  0.133E+04  0.108E+04  0.882E+03 
0 . 714E+03  0.574E+03  0.457E+03  0.360E+03  0.280E+03  0.213E+03  0.157E+03 
0 . 110E+03  0 . 713E+02  0.391E+02  0.122E+02  0.000E+00 


U/UFRIC  AT  I  -  LI  -  3 

0 . 281E+02  0 . 281E+02  0.279E+02  0.277E+02  0.274E+02  0.270E+02  0.266E+02 
0 . 262E+02  0 . 257E+02  0.252E+02  0.247E+02  0.242E+02  0.237E+02  0  231E+02 
0 . 226E+02  0.220E+02.  0.214E+02  0.207E+02  0.200E+02  0.193E+02  0.184E+02 
0 . 174E+02  0 . 163E+02  0.148E+02  0.118E+02  0.000E+00 


Y(J) /Y (Ml) 

0.00000  0.08989  0.24951  0.37728  C. 48365  0.57220  0.64592  0  70729 

0.75837  0.80091  0.83631  0.86579  0.89033  0.91075  0.92776  0.94192 

0.95370  0.96352  0.97168  0.97848  0.98414  0.98886  0.99278  0  99605 

0.99876  1.00000 


U/UMAX  AT  I  -  LI  -  3 
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0 . 100E+01  0 . 100E+01  0 . 995E+00  0.986E+00  0.975E+00  0.963E+00  0.948E+00 
0 . 933E+00  0 . 917E+00  0.900E+00  0.882E+00  0.863E+00  0.844E+00  0.825E+00 
0 . 804E+00  0 . 783E+00  0.761E+00  0.738E+00  0.713E+00  0.686E+00  0.656E+00 
0.622E+00  0 . 580E+00  0.527E+00  0.422E+00  O.OOOE+OO 


YPLUS 

0 . 467E+04  0 . 425E+04  0.351E+04  0.291E+04  0.241E+04  0.200E+04  0.165E+04 
0 . 137E+04  0 . 113E+04  0.930E+03  0.765E+03  0.627E+03  0.512E+03  0.417E+03 
0.337E+03  0 . 271E+03  0.216E+03  0.170E+03  0.132E+03  0.101E+03  0.741E+02 
0 . 521E+02  0.337E+02i 0.185E+02  0.577E+01  O.OOOE+OO 


UPLUS  AT  I  -  LI  -  3 

0 . 593E+02  0 . 593E+02  0.590E+02  0.585E+02  0.579E+02  0.571E+02  0.563E+02 
0 . 554E+02  0 . 544E+02  0.534E+02  0.523E+02  0.512E+02  0.501E+02  0.489E+02 
0 . 477E+02  0 . 465E+02  0.452E+02  0.438E+02  0.423E+02  0.407F+02  0.389E+02 
0 . 369E+02  0 . 344E+02  0.312E+02  0.250E+02  O.OOOE+OO 

X  NODE  LOCATIONS 

0.00000  0.10000  0.30000  0.50000  0.70000  0.90000  1.10000  1.30000 
1.50000  1.70000  1.90000  2.10000  2.30000  2.50000  2.70000  2.90000 
3.10000  3.30000  3.50000  3.70000  3.90000  4.10000  4.30000  4.50000 
4.70000  4.90000  5.10000  5.30000  5.50000  5.70000  5.90000  6.10000 
6.30000  6.50000  6.70000  6.90000  7.10000  7.30000  7.50000  7.70000 
7.90000  8.00000 

Y  NODE  LOCATIONS 

0.00000  0.00899  0.02495  0.03773  0.04836  0.05722  0.06459  0.07073 
0.07584  0.08009  0.08363  0.08658  0.08903  0.09108  0.09278  0.09419 
0.09537  0.09635  0.09717  0.09785  009841  0.09889  0.09928  0.09960 
0.09988  0.10000 

XU  LOCATIONS 

0.00000  0.00000  0.20000  0.40000  0.60000  0.80000  1.00000  1.20000 
1.40000  1.60000  1.80000  2.00000  2.20000  2.40000  2.60000  2.80000 
3.00000  3.20000  3.40000  3.60000  3.80000  4.00000  4.20000  4.40000 
4.60000  4.80000  5.00000  5.20000  5.40000  5.60000  5.80000  6.00000 
6.20000  6.40000  6.60000  6.80000  7.00000  7.20000  7.40000  7.60000 
7.80000  8.00000 

YV  LOCATIONS 

0.00000  0.00000  0.01798  0.03192  0.04353  0.05320  0.06124  0.06794 
0.07352  0.07816  0.08202  0.0&524  0.08792  0.09015  0.09200  0.09355 
0.09483  0.09591  0.09680  0.09754  0.09816  0.09867  0.09910  0.09946 
0.09975  0.10000 


I,  Y+,  TAU/U,  TAU,  DELTA,  DIST  -0.1235E-03  TAUWALL  -  0.2182E+02 


1 

0.00 

0.00 

0.00 

0 . 0000E+00 

2 

13.73 

0.92 

125.21 

0 . 1080E-03 

3 

12.94 

0.88 

110.59 

0 . 1146E-03 

4 

12.43 

0.85 

101.46 

0 . 1192E-03 

5 

12.38 

0.85 

100.70 

0 . 1197E-03 

6 

12.34 

0.85 

100.01 

0 . 1201E-03 

7 

12.31 

0.85 

99.57 

0 .1204E-03 

8 

12.29 

0.85 

99.29 

0 .1206E-03 

9 

12.28 

0.85 

99.13 

0 . 1207E-03 

10 

12.28 

0.85 

99.05 

0 . 1207E-03 
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11 

12.28 

0.85 

12 

12.28 

0.85 

13 

12.28 

0.85 

14 

12.29 

0.85 

15 

12.29 

0.85 

16 

12.29 

0.85 

17 

12.30 

0.85 

18 

12.30 

0.85 

19 

12.31 

0.85 

20 

12.31 

0.85 

21 

12.31 

0.85 

22 

12.32 

0.85 

23 

12.32 

0.85 

24 

12.32 

0.85 

25 

12.31 

0.85 

26 

12.31 

0.85 

27 

12.31 

0 . 85 

28 

12.31 

0.85 

29 

12.30 

0.85 

30 

12.30 

0.85 

31 

12.29 

0.85 

32 

12.28 

0.85 

33 

12.28 

0.84 

34 

12.27 

0.84 

35 

12.26 

0.84 

36 

12.26 

0.84 

37 

12.25 

0.84 

38 

12.25 

0.84 

39 

12.20 

0.84 

40 

12.60 

0.86 

41 

13.08 

0.89 

42 

0.00 

0.00 

99.02  0.1207E-03 
99.04  0 . 1207E-03 
99.08  0 . 1207E-03 
99.15  0 . 1206E-03 
99.22  0 . 1206E-03 
99.30  0 . 1206E-03 
99.38  0 . 1205E-03 
99.45  0 . 1205E-03 
99.51  0 . 1204E-03 

99.56  0 . 1204E-03 
99.60  0.1204E-03 

99.63  0 . 1204E-03 

99.64  0 . 1203E-03 

99.64  0 . 1204E-03 
99.63  0 . 1204E-03 

99.59  0 . 1204E-03 

99.55  0 . 1204E-03 
99.48  0 . 1204E-03 
99.41  0 . 1205E-03 
99.32  0 . 1205E-03 
99.22  0 . 1206E-03 
99.11  0 . 1207E-03 
98.99  0 . 1207E-03 
98.88  0 . 1208E-03 
98.77  0 . 1209E-03 
98.66  0 . 1209E-03 

98.56  0 . 1210E-03 

98.56  0 . 1210E-03 

97.60  0 . 1215E-03 
104.79  0.117 6E-03 
113.43  0.1133E-03 

0.00  O.OOOOE+OO 


TKE  AT  I  -  1 


0 . 421E+03 
0.327E+03 
0 . 240E+03 
0 . 158E+03 


0 . 421E+03 
0 . 314E+03 
0 . 228E+03 
0 . 144E+03 


0.403E+03 
0 . 300E+03 
0 . 217E+03 
0 . 126E+03 


0.387E+03 
0 . 288E+03 
0 . 206E+03 
0. 971E+02 


0 . 371E+03 
0 . 275E+03 
0 . 195E+03 
0 . 000E+00 


0 . 356E+03 
0 . 263E+03 
0 . 183E+03 


0 .341E+03 
0 . 251E+03 
0 . 171E+03 


TED  AT  I  -  1 


0 . 259E+06  0 . 259E+06 
0 . 178E+06  0 . 167E+06 
0 . 111E+06  0 . 104E+06 
0 . 597E+05  0 . 517E+05 


0 . 243E+06  0 . 228E+06 
0 . 156E+06  0 . 146E+06 
0 . 960E+05  0 . 887E+05 
0 . 423E+05  0 . 287E+05 


0 . 214E+06 
0 . 137E+06 
0 . 815E+05 
0 . OOOE+OO 


0.201E+06 
0 . 128E+06 
0 . 744E+05 


0 . 189E+06 
0 . 119E+06 
0 . 672E+05 


TKE  AT  MID-LENGTH 


0 . 755E+02  0 . 755E+02  0.851E+02  0.961E+02 
0.136E+03  0 . 147E+03  0.158E+03  0.170E+03 
0 . 223E+03  0 . 237E+03  0.251E+03  0.265E+03 
0 . 320E+03  0 . 339E+03  0.380E+03  0.331E+03 


0 . 106E+03 
0 . 182E+03 
0 . 278E+03 
0. 000E+00 


0 . 116E+03 
0 . 196E+03 
0 . 292E+03 


0 . 126E+03 
0 . 209E+03 
0 . 305E+03 


TED  AT  MID-LENGTH 


0 . 684E+04  0 . 684E+04  0.868E+04  0.113E+05 
0.327E+05  0 . 433E+05  0.577E+05  0.770E+05 
0 . 245E+06  0 . 327E+06.  0 . 439E+06  0.593E+06 
0 . 244E+07  0.404E+07  0.810E+07  0.201E+08 
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0 . 146E+05 
0 . 103E+06 
0 . 810E+06 
0. 000E+00 


0 . 1 90E+05 
0 . 137E+06 
0 . 113E+07 


0 . 248E+05 
0. 183E+06 
0 . 162E+07 


TKE  AT  I  -  LI  -  3 

0 . 579E+02  0.579E+02  0.636E+02  0.724E+02  0.835E+02  0.962E+02  0.110E+03 
0 . 125E+03  0.141E+03  0.156E+03  0.172E+03  0.187E+03  0.202E+03  0.216E+03 
0 . 230E+03  0 . 244E+03  0.257E+03  0.270E+03  0.282E+03  0.295E+03  0.308E+03 
0 . 323E+03  0.344E+03  0.387E+03  0.325E+03  O.OOOE+OO 


TED  AT  I  -  LI  -  3 

0 . 414E+04  0 . 414E+04  0.526E+04  0.733E+04  0.106E+05  0.154E+05  0.221E+05 

0 . 314E+05  0 . 438E+05  0.603E+05  0.818E+05  0.110E+06  0.146E+06  0.1945+06 

0 . 256E+06  0 . 339E+06  0.450E+06  0.603E+06  0.818E+06  0.113E+07  0.163E+07 

0 . 247E+07  0 . 411E+07  0.815E+07  0.195E+08  0.000E+00 

NO.  ITERATIONS  -  1000  LI, Ml  -  42  26 


EQN  SWEEPS 

1  10  2  10  3  10  4  10  5  10  6  10 
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Output  for  turbulent  pipe  flow  Case  3. 


P  =  1.0  n=  0.0001 
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COMPUTATION  FOR  AXI SYMMETRIC  SITUATION 
**'*************##*********************** 


QIN/QOUT  =  1.00 

MID-LENGTH  U  DISTRIBUTION 

0 . 523E+02  0 . 523E+02  0.523E+02  0.523E+02  0.522E+02  0.521E+02  0.516E+02 
0 . 498E+02  0.443E+02  O.OOOE+OO 

AXIAL  U  DISTRIBUTION 

0 . 500E+02  0.507E+02  0.512E+02  0.518E+02  0.523E+02  0.528E+02  0.532E+02 
0 . 536E+02  0 . 536E+02 

LEFT  -  U  DISTRIBUTION 

0 . 500E+02  0 . 500E+02  0.500E+02  0.500E+02  0.500E+02  0.500E+02  0.500E+02 
0 . 500E+02  0 . 500E+02  O.OOOE+OO 

RIGHT  -  U  DISTRIBUTION 

0 . 536E+02  0 . 536E+02  0.536E+02  0.536E+02  0 . 534E+02  0.530E+02  0.518E+02 
0 . 487E+02  0 . 425E+02  O.OOOE+OO 

REYNOLDS  NUMBER  -  0.1000E+06 
(YMAX-Y) /YFRIC 

0 . 239E+04  0 . 224E+04  0.194E+04  0.164E+04  0.134E+04  0.104E+04  0.746E+03 
0 . 447E+03  0 . 149E+03  O.OOOE+OO 

U/UFRIC  AT  I  -  LI  -  3 

0 . 221E+02  0 . 221E+02  0.221E+02  0.221E+02  0.221E+02  0.220E+02  0.217E+02 
0 . 207E+02  0 . 182E+02  O.OOOE+OO 

Y  ( J)  /Y (Ml) 

0.00000  0.06250  0.18750  0.31250  0.43750  0.56250  0.68750  0.81250 

0.93750  1.00000 

U/UMAX  AT  I  -  LI  -  3 

0 . 100E+01  0 . 100E+01  0 . 100E+01  0.100E+01  0.998E+00  0.995E+00  0.982E+00 
0 . 938E+00  0 . 823E+00  O.OOOE+OO 

X  NODE  LOCATIONS 


0.00000  0.12500 

1.87500  2.00000 

0.37500 

0.62500 

0.87500 

1.12500 

1.37500 

1.62500 

Y  NODE  LOCATIONS 

0.00000  0.00625 

0.09375  0.10000 

0.01875 

0.03125 

0.04375 

0.05625 

0.06875 

0.08125 

XU  LOCATIONS 

0.00000  0.00000 

0.25000 

0.50000 

0.75000 

1.00000 

1.25000 

1.50000 
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1.75000  2.00000 


YV  LOCATIONS 

0.00000  0.00000  0.01250  0.02500  0.03750  0.05000  0.06250  0.07500 

0.08750  0.10000 

I,  Y+,  TAU/U,  TAU,  DELTA,  DIST  -0.6250E-02 


1 

0.00 

0.00 

0.00 

0 .0000E+00 

2 

164.38 

0.14 

7.09 

0 .4563E-03 

3 

162.34 

0.14 

6.77 

0 .4620E-03 

4 

158.01 

0.14 

6.41 

0.4746E-03 

5 

154.39 

0.14 

6.12 

0 . 4858E-03 

6 

151.37 

0.13 

5.89 

0 . 4955E-03 

7 

148.87 

0.13 

5.69 

0 . 5038E-03 

8 

147.42 

0.13 

5.59 

0 . 5088E-03 

9 

146.98 

0.13 

5.56 

0 . 5103E-03 

10 

0.00 

0.00 

0.00 

0 . 0000E+00 

TKE  AT  I  -  1 

0 . 125E+02  0 . 125E+02  0.125E+02  0.125E+02  0.125E+02  0.125E+02  0.125E+02 
0 . 125E+02  0 . 125E+02  0.000E+00 


TED  AT  I  -  1 

0 . 133E+04  0 . 133E+04  0.133E+04  0.133E+04  0.133E+04  0.133E+04  0.133E+04 
0 . 133E+04  0 . 133E+04  0.000E+00 


TKE  AT  MID-LENGTH 

0 . 352E+01  0.352E+011 0.350E+01  0.350E+01  0.351E+01  0.360E+01  0.411E+01 
0 . 689E+01  0 . 196E+02  0.000E+00 


TED  AT  MID-LENGTH 

0 . 148E+03  0 . 148E+03  0.147E+03  0.147E+03  0.149E+03  0.164E+03  0.259E+03 
0 . 892E+03  0 . 568E+04  O.OOOE+OO 


TKE  AT  I  -  LI  -  3 

0 . 301E+01  0 . 301E+01  0.299E+01  0.299E+01  0.301E+01  0.315E+01  0.390E+01 
0 . 720E+01  0 . 189E+02  O.OOOE+OO 


TED  AT  I  -  LI  -  3 

0 . 111E+03  0 . 111E+03  0 . 110E+03  0.110E+03  0.114E+03  0.133E+03  0.246E+03 
0 . 932E+03  0 . 541E+04  O.OOOE+OO 

NO.  ITERATIONS  -  500  LI, Ml  -  10  10 
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appendix  c 

Test  Chamber 

This  and  the  following  appendices  through  F  describe  the  routines  used  to  model  the 
test  chamber.  This  appendix  has  a  list  of  terms  used  in  both  the  flow  field  model  and  the 
agent  transport  model.  The  terms  associated  with  the  flow  field  model  are  given  first, 
those  for  the  agent  transport  model  that  differ  follow.  This  list  of  terms  is  to  be  used  in 
conjunction  with  the  list 
illustrate  the  meaning  of 


of  variables  given  in  Appendix  A.  The  following  two  figures 
some  of  the  indices  used  to  define  the  grid  structure  of  the  model. 
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“/  /- 

-/  /- 

cell  1 

cell  2 

ICELL 

Figure  Cl.  The  subdivision  of  an  x- direction  region 

of  length  XL  into  ICELL’s.  A  y- direction 
region  is  treated  in  the  saae  way. 
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Figure  C2.  The  test  chamber  shoving  the  cell  (control  volume) 
numbering  scheme.  The  north  vail  is  the  outer  vail 
of  the  main  tube.  Vail  functions  are  used  at 
the  north,  south,  east,  and  vest  vails. 
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VARIABLES  USED  IN  THE  MODEL 

-  PRIMARY  UNKNOWNS  - 

U(I,J)  AXIAL  VELOCITY 

V(I, J)  RADIAL  VELOCITY 

P(I,J)  PRESSURE 

PC(I,J)  PRESSURE  CORRECTION 

TED (I, J)  TURBULENT  ENERGY  DISSIPATION 

TKE (I, J)  TURBULENT  KINETIC  ENERGY 

-  SECONDARY  UNKNOWNS  - 


AMUT (I, J)  TURBULENT  VISCOSITY 

GK(I,J)  2*AMUT*Ce] : [e]  —  [e]  IS  THE  STRAIN  RATE  TENSOR 

-  INPUT  QUANTITIES  - 


NSTEADY 

DT 

LAST 

NTIMES (NEQ) 

RELAX (NEQ) 
MODE 


IPREF, JPREF 


-  1  STEADY  STATE  PROBLEM 

-  0  TRANSIENT  PROBLEM 

TIME  STEP  —  ENTER  IF  NSTEADY  -  1 
MAXIMUM  NUMBER  OF  ITERATIONS  OR  TIME  STEPS 
NUMBER  OF  SOLUTION  SWEEPS  FOR  EACH  EQUATION 
BETWEEN  UPDATES 

RELAXATION  FACTORS  FOR  EACH  EQUATION 

-  1  CARTESIAN  COORDINATES 

-  2  AXISYMMETRIC  COORDINATES 

-  3  POLAR  COORDINATES 

GRID  POINT  LOCATION  FOR  THE  REFERENCE  PRESSURE 


PHYSICAL  PROPERTIES  AND  TURBULENCE  CONSTANTS 


RHOCON  CONSTANT  VALUE  OF  DENSITY 

AMU  LAMINAR  VISCOSITY 

Cl,  C2  CONSTANTS  IN  THE  ENERGY  DISSIPATION  EQUATION 

CD  CONSTANT  IN  THE  TURBULENT  VISCOSITY  FORMULA 

CAPPA  VON  KARMAN'S  CONSTANT  IN  THE  WALL  LAW 

ECON  WALL  LAW  ROUGHNESS  CONSTANT 

PRTKE  PRANDTL  NUM  IN  THE  KINETIC  ENERGY  EQUATION 

PRTED  PRANDTL  NUM  IN  THE  ENERGY  DISSIPATION  EQUATION 


ALP  ALPHA  IN  THE  ARMOUR-CANNON  EQUATION 

BET  BETA  IN  THE  ARMOUR-CANNON  EQUATION 

ARAT  SURFACE- ARE A-TO- VOLUME  RATIO  FOR  THE  FABRIC 

DIA  PORE  DIAMETER  FOR  THE  FABRIC 

EPS  VOID  FRACTION  FOR  THE  FABRIC 

FABTHK  EFFECTIVE  THICKNESS  OF  THE  FABRIC 


UINLET  AVERAGE  INLET  VELOCITY 

UINJECT  TEST  CELL  INJECTION  VELOCITY 


MESH  INPUT  DATA 


IREG  NUMBER  OF  X  -  DIRECTION  MESH  REGIONS 

I CELL ( I )  NUMBER  OF  CELLS  IN  EACH  X  -  REGION 

IDCRS(I)  -  1  DECREASING  MESH  SPACING 

-  0  INCREASING  MESH  SPACING  IN  EACH  REGION 

JREG  NUMBER  OF  Y  -  DIRECTION  MESH  REGIONS 

JCELL(J)  NUMBER  OF  CELLS  IN  EACH  Y  -  REGION 

JDCRS (J)  -  1  DECREASING  MESH  SPACING 

-  0  INCREASING  MESH  SPACING  IN  EACH  REGION 

XL (I)  LENGTH  OF  EACH  X  -  REGION 

ENX (I)  VALUE  OF  N  IN  POWER  LAW  OF*  THE  GRID 

(S** (1/N) ) 

YL ( J)  LENGTH  OF  EACH  Y  -  REGION 


ENY(J) 


VALUE  OF  N  IN  POWER  LAW  OF  THE  GRID 
(S** (1/N) ) 


C 

c 
c 

c  -  test  cell  location  - 

c 

C  IBOX1  FIRST  I-DIR  CELL  (FABRIC) 

c  IBOX2  LAST  I-DIR  CELL  AT  BACK  WALL 

C  JBOX  J-DIR  CELL  AT  TOP-WALL 

C 


C  GRID  POINT  RANGES  FOR  IMPERVIOUS  BOX  WALLS 

C  AND  THE  RANGE  FOR  THE  INJECTION  VELOCITY 

C 

C  LB1  -  IBOX1  +  1 

C  LB2  -  IBOX2  +  1 

C  MB1  -  1 

C  MB2  -  JBOX  +  1 

C  MU1  -  MB1 

C  MU2  -  MB2  -  1 

C 

C  RANGE  FOR  GRID  POINTS  NEXT  TO  N,S,E,W  WALLS  RESPECTIVELY 
C 

C  LNW1  -  1 

C  LNW2  -  LI 

C  MNW  -  M2 

C  LSW1  -  LB1 

C  LSW2  -  LB2 

C  MSW  -  MB 2  +  1 

C  LEW  -  LB1  -  1 

C  MEW1  -  1 

C  MEW2  -  MB 2 

C  LWW  -  LB2  +  1 

C  MWW1  -  1 

C  MWW2  -  MEW2 

C 

C  GRID  POINT  RANGES  FOR  FABRIC  AND 
C  THE  WIDTH  OF  THE  FABRIC  CELLS 

C 

C  LF1  -  LB1 

C  LF2  -  LB1  +  1 

C  MF1  -  1 

C  MF2  -  MB2  -  1 

C  WF1  -  XCV(LFl) 

C  WF2  -  XCV(LF2) 

C 

C  OUTER  RADIUS  AND  DISTANCES  FROM  WALLS  TO 
C  ADJACENT  GRID  POINT 

C 

C  RMAX  -  Y (Ml) 

C  DISTN  -  YDIF(Ml) 

C  DISTS  -  Y  (MSW)  -  YV(MSW)' 

C  DISTE  -  XU (LEW+1)  -  X(LEW) 

C  DISTW  -  X (LWW)  -  XU (LWW) 

C 

C  VARIABLES  FOR  THE  TRANSPORT  OF  AGENT  MODEL 

C  THAT  DIFFER  FROM  THE  MODEL  FOR  THE  VELOCITY 

C 

C  -  PRIMARY  UNKNOWN  - 

C 

C  AGNT (I,  J)  CONCENTRATION  OF  AGENT 

C 

C  -  INPUT  QUANTITIES  - 

C  -  PHYSICAL  PROPERTIES  AND  TURBULENT  CONSTANTS  - 

C 

C  ETA  DIFFUSION  COEFFICIENT  FOR  FLUID 

C  ETAF  DIFFUSION  COEFFICIENT  FOR  FABRIC 

C  PRCON  TURBULENT  SCHMIDT  NUMBER 

97 


APPENDIX  D 
User  Routine  for  Velocity 


The  structure  of  the  user  routines  for  the  chamber  model  follows  that  given  in  the 
chart  in  Appendix  A.  It  differs  slightly  from  that  used  in  Appendix  B.  There  is  no 
BLOCK  DATA  section.  Data  are  either  defined  or  read  in  the  subroutine  USER.  Output 
is  controlled  by  the  subroutine  PUTOUT  in  Appendix  E.  The  model  given  here  is  for  the 
case  of  radial  injection  of  uncontaminated  gas.  The  range  of  nodes  in  the  axial  direction 
along  which  the  injection  takes  place  is  defined  by  LV1  and  LV2  defined  on  page  102. 
The  injection  values  are  enforced  after  ENTRY  BOUND  on  pages  103  and  104  and  the 
corresponding  coefficients  in  the  finite  difference  equation  are  given  the  appropriate  values 
following  ENTRY  GAMSOR  on  page  106. 

Following  the  listing  is  output  for  the  case  with  an  inlet  velocity  of  U^^  =  50in/s 
and  and  injection  velocity  of  V.  •  =  20in/s  as  discussed  in  the  main  body  of  the  text. 

111J 
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OOOOOOOOf 


TEST 


CHAMBER 


TURBULENT  FLOW 


C 

c 


c 


c 


c 

c 

c 

c 

c 

c 

c 


c 


c 


c 


c 


c 

c 


c 


SUBROUTINE  USER 
IMPLICIT  REAL *8 (A-H,0-2) 

IMPLICIT  INTEGER (I-N) 

PARAMETER  ( ID-151 , JD-15 1 , NFD-7 , NFP3-7 , MI J-l 51 , N REG— 10 ) 
LOGICAL  LSOLVE, LBLK, LSTOP 

COMMON/ BLOCK/ F( ID, JD,NFD) , GAM (ID, JD) ,CON(ID,  JD) , 

:  AIP (ID, JD) , AIM (ID, JD) ,AJP (ID, JD) ,AJM(ID, JD) ,AP (ID, JD) , 

:  X  (ID) ,  XU  (ID)  ,  XDIF  (ID) ,  XCV  ( ID)  ,  XCVS  (ID)  , 

:  Y  ( JD)  ,  YV  ( JD)  ,  YDIF  ( JD)  ,  YCV  ( JD)  ,  YCVS  (JD)  , 

:  YCVR(JD)  ,  YCVRS  (JD)  ,  ARX  ( JD)  ,  ARXJ  ( JD)  ,  ARXJP  ( JD)  , 

:  R ( JD)  ,  RMN  ( JD)  ,  SX  ( JD)  ,  SXMN  ( JD) ,  XCVI  (ID)  ,XCVIP  (ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV ( JD) , FVP ( JD) , 

:  FX (ID) , FXM (ID) , FY ( JD) , FYM ( JD) , PT (MI J) , QT (MI J) 

COMMON/ INDX/NF , NFMIN, NFMAX , NP , NRHO , NGAM, LI , L2 , L3 , Ml , M2 ,  M3 , 
:  1ST,  JST,  ITER, LAST, IPREF, JPREF, MODE, NTIMES (NFP3 ) 

COMMON/LOGI /LSOLVE (NFP3) , LBLK (NFP3) 

COMMON / VARI / T IME , DT, RELAX (NFP3) , RHOCON 

COMMON/ CNTL / LSTOP 

COMMON /SORC/SMAX, SSUM 

COMMON/COEF/FLOW, DIFF, ACOF 

COMMON/ INOUT/ IN, 10 

COMMON/ STRESS/TOUN ( ID) , TOUS (ID) , TOVE (ID) , TOVW (ID)  , 

:  TAUN(ID) ,  TAUS (ID) , TAUE ( ID) , TAUW (ID) , 

:  TOUNI (ID) ,TOVEI (ID) ,TOVWI (ID) , 

:  TAUNI (ID) ,TAUEI (ID) ,TAUWI (ID) ,AMUT(ID, JD) 

COMMON/PROP/  AMU, Cl , C2 , CD , CAPPA, ECON, PRTKE, PRTED, 

:  ALP, BET, ARAT, DIA, EPS, FABTHK, UINLET,  UINJECT, 

:  CD5,  CD25,  CD7.5,  C2M,  TC2M,  CDR2 

COMMON/BOX/  WF1, WF2 , SCFAC, AA, BB, DISTN, DISTS, DISTE, DISTW, 

:  DISTNI, DISTEI , DISTWI 

COMMON/ IBOX/  LB1, LB 2 , MB2 , LNW1 , LNW2 , LSW1 , LSW2 , MNW, MSW, 

:  MEW1 , MEW2 , MWW1 , MWW2 , LEW, LWW, LF1 , LF2 , MF1 , MF2 , 

:  MNWI , LWWI , LEWI 

DIMENSION  U(ID, JD) ,V(ID, JD) , PC (ID, JD) , P (ID, JD) , TKE ( ID, JD) , 
:  TED(ID, JD) ,GK(ID, JD) 

DIMENSION  TURBE(ID) 

DIMENSION  ICELL (NREG) , IDCRS (NREG) , JCELL (NREG) , JDCRS (NREG) , 
:  XL (NREG) , YL (NREG) ,ENX (NREG) ,ENY (NREG) 

EQUIVALENCE  (F  (1, 1, 1) , U (1 , 1 ) ) ,  (F  (1, 1, 2) , V (1 , 1 ) )  , 
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:  (F (1,1, 3), PC (1,1)),  (F  (1,1,4 ),P  (1,1)), 

:  (F (1,  1,  5) ,TKE (1,1)) ,  ( F ( 1 , 1 , 6) , TED (1,1) ) 

C 

C  F  (I,  J,  1)  -  U 

C  F  (I,  J,  2)  -  V 

C  F  (I ,  J,  3 )  -  PC 

C  F  (I ,  J,  4 )  -  P 

C  F  (I,  J,  5)  -  TKE 

C  F(I, J, 6)  -  TED 

C 

C. . .PROBLEM  DATA 
C 

DATA  IN, 10  /15, 16/ 

DATA  NFMIN, NFMAX  /5,6/ 

DATA  NU, NV, NPC, NP, NKE, NED  /l, 2, 3, 4, 5, 6/ 

C 

DATA  LSOLVE (1 )  /.true./ 

DATA  LSOLVE (2)  /.true./ 

DATA  LSOLVE (3)  /.true./ 

DATA  LSOLVE (4)  /.true./ 

DATA  LSOLVE (5)  /.true./ 

DATA  LSOLVE (6)  /.true./ 

DATA  LSOLVE (7)  /.FALSE./ 

C 

DATA  LBLK(l)  /.FALSE./ 

DATA  LBLK(2)  /.FALSE./ 

DATA  LBLK (3)  /.FALSE./ 

DATA  LBLK (4)  /.FALSE./ 

DATA  LBLK (5)  /.FALSE./ 

DATA  LBLK (6)  /.FALSE./ 

DATA  LBLK (7)  /.FALSE./ 

C 

DATA  LSTOP  /.FALSE./ 

DATA  TINY, BIG, SMALLEST, BIGGEST  /l.E-30,  l.E+30,  l.E-70,  l.E+70/ 
C 

C  - 

ENTRY  INPUT 

C  - 

C 

READ (IN,*)  NSTEADY 
DT  -  BIG 

IF  (NSTEADY  .NE.  1)  READ (5,*)  DT 
READ (IN,*)  LAST,  (NTIMES (NEQ) ,  NEQ-1,NFP3) 

READ (IN,*)  (RELAX (NEQ),  NEQ-1,NFP3) 

READ (IN,*)  MODE,  IPREF,  JPREF 

READ ( IN, * )  RHOCON , AMU , Cl , C2 , CD , CAPP A, ECON , PRTKE , PRTED 
READ ( IN , * )  ALP, BET, ARAT, DIA, EPS , FABTHK 
READ (IN,*)  UINLET,  UINJECT 
C 

WRITE (10,*)  'NSTEADY' 

WRITE (10, 6100)  NSTEADY 
WRITE (10,*)  'DT' 

WRITE (10, 6102)  DT 

WRITE (10,*)  'LAST,  (NTIMES (NEQ) ,  NEQ-1,NFP3) ' 

WRITE (10, 6100)  LAST,  (NTIMES (NEQ) ,  NEQ-1,NFP3) 

WRITE (10,*)  'MODE,  IPREF,  JPREF' 

WRITE (10, 6100)  MODE,  IPREF,  JPREF 

WRITE (10,*)  'RHOCON, AMU, Cl, C2, CD, CAPP A, ECON, PRTKE, PRTED' 

WRITE (10, 6102 )  RHOCON, AMU, Cl, C2 , CD, CAPPA, ECON, PRTKE, PRTED 
WRITE ( 10, * )  ' ALP , BET , ARAT , D IA , EPS , FABTHK' 

WRITE(I0, 6102)  ALP, BET, ARAT, DIA, EPS, FABTHK 
WRITE (10,*)  'UINLET,  UINJECT' 

WRITE (10, 6102)  UINLET,  UINJECT 
C 

6100  FORMAT (1515,/) 

6102  FORMAT (7 (IX, E10 . 4) , /) 
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TURBULENCE  CONSTANTS 


C 

C 

C 


C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


C 

C 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


10 


c 

c 

c 


CDS 

CD25 

CD75 

C2M 

TC2M 

CDR2 

COK 


CD**.  5 

CD** .25 

CD**. 75 

C2  -  1.0 

2 . *C2  -  1.0 

CD*RHOCON**2 

BIG*CD75/CAPPA 


MESH  GENERATION  DATA 


read(in, *) 
read (in, *) 
read (in, *) 
read(in, *) 


ireg,  (icell(i),  idcrs(i), 
jreg,  (jcell(j),  jdcrs(j), 
(xl (i) ,  enx(i),  i-l,ireg) 
(yl(j)/  eny(j),  j-1, jreg) 


i-1, ireg) 
j-1, jreg) 


TEST  CELL 


READ (IN,*)  IBOX1, IBOX2, JBOX 


ENTRY  GRID 


LI  NUMBER  OF  U  VELOCITY  POINTS 

Ml  NUMBER  OF  V  VELOCITY  POINTS 


call  meshgen (ireg, icell, idcrs, xl, enx, xu, 11) 
call  meshgen (jreg, jcell, jdcrs, yl, eny, yv,ml) 

RETURN 


ENTRY  START 


OPEN  RESTART  FILE 

OPEN (UNIT-12,  FILE-' RESTART' , FORM-' UNFORMATTED' ) 


DO  10  K  -  1, NFD 
DO  10  J  -  1,M1 
DO  10  I  -  1, LI 
F  (I,  J,  K)  -  0.0 
CONTINUE 

GRID  POINT  RANGES  FOR  IMPERVIOUS  BOX  WALLS 
AND  THE  RANGE  FOR  THE  INJECTION  VELOCITY 

LB1  -  IBOX1  +  1 
LB2  -  IBOX2  +  1 
MB1  -  1 

MB2  -  JBOX  +  1 

RANGE  FOR  GRID  POINTS  NEXT  TO  N,S,E,W  WALLS  RESPECTIVELY 

LNW1  -  1 
LNW2  -  LI 
MNW  -  M2 
LSW1  -  LB1 
LSW2  -  LB2 
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MSW  -  MB2  +  1 
LEW  -  LB1  -  1 
MEW1  -  1 
MEW 2  -  MB 2 
LWW  -  LB 2  +  1 
MWW1  -  1 
MWW2  -  MEW2 
MNWI  -  MB2  -  1 
LWWI  -  LB1  +  2 
LEWI  -  LB2  -  1 

GRID  POINT  RANGES  FOR  FABRIC  AND 
THE  WIDTH  OF  THE  FABRIC  CELLS 

LF1  -  LB1 
LF2  -  LB1  +  1 
MF1  -  1 
MF2  -  MB2  -  1 
WF1  -  XCV(LFl) 

WF2  -  XCV (LF2) 

GRID  POINT  RANGES  FOR  INJECTION  VELOCITY  ' 

LV1  -  IBOX1  +  5 
LV2  -  IBOX2  -  2 

SCALED  COEFFICIENTS  FOR  THE  ARMOOR-CANNON  EQUATION 

SCFAC  -  FABTHK/ (WF1  +  WF2) 

AA  -  SCFAC*ALP*ARAT**2/EPS**2 
BB  -  SCFAC*BET*RHOCON/ (DIA*EPS**2) 

OUTER  RADIUS  AND  DISTANCES  FROM  WALLS  TO 
ADJACENT  GRID  POINT 


RMAX  -  Y (Ml) 

DISTN  -  YDIF(Ml) 

DISTS  -  Y (MSW)  -  YV (MSW) 

DISTE  -  XU (LEW+1)  -  X(LEW) 
DISTW  -  X (LWW)  -  XU (LWW) 
DISTNI  -  Y (MNWI)  -  YV(MNWI) 
DISTEI  -  XU (LEWI+1)  -  X(LEWI) 
DISTWI  -  X(LWWI)  -  XU (LWWI) 


C 


WALL  FACTORS 

FCTRN  -  COK/DISTN 
FCTRS  -  COK/DISTS 
FCTRE  -  COK/DISTE 
FCTRW  -  COK/DISTW 
FCTRNI  -  CCX/DISTNI 
FCTRE I  -  COK/DISTEI 
FCTRWI  -  COK/DISTWI 


WRITE (IO,*>  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10, *)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE  (10,  *)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6100) 


AA,  BB,  SCFAC' 

AA,  BB,  SCFAC 

RMAX,  DISTN,  DISTS,  DISTE,  DISTW' 
RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
DISTNI,  DISTEI,  DISTWI' 

DISTNI,  DISTEI,  DISTWI 
FCTRN,  FCTRS,  FCTRE,  FCTRW' 

FCTRN,  FCTRS,  FCTRE,  FCTRW 
FCTRNI,  FCTREI,  FCTRWI' 

FCTRNI,  FCTREI,  FCTRWI 
IBOXl,  I BOX 2 ,  JBOX' 

IBOX1,  IBOX2,  JBOX 
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WRITE (10,*)  '  LB1,  LB2,  MB1,  MB2 ' 

WRITE (10, 6100)  LB1,  LB2,  MB1,  MB2 
WRITE (10,*)  '  LNW1 ,  LNW2,  MNW,  LSW1,  LSW2,  MSW 
WRITE (10, 6100)  LNW1,  LNW2 ,  MNW,  LSW1,  LSW2,  MSW 
WRITE (10,*)  '  LEW,  MEW1,  MEW2,  LWW,  MWW1,  MWW2 
WRITE (10, 6100)  LEW,  MEW1,  MEW2,  LWW,  MWW1,  MWW2 
WRITE (10,*)  '  LEWI,  LWWI,  MNWI' 

WRITE (10, 6100)  LEWI,  LWWI,  MNWI 
WRITE (10,*)  '  LF1,  LF2 ,  MF1,  MF2' 

WRITE (10, 6100)  LF1,  LF2,  MF1,  MF2 
WRITE (10,*)  '  WF1,  WF2 ' 

WRITE (10, 6102)  WF1,  WF2 
WRITE (10,*)  '  LV1,  LV2' 

WRITE (10, 6100)  LV1,  LV2 

-  INITIAL  CONDITIONS  - 

DO  11  J  -  1 ,M2 
DO  11  I  -  1, LI 
U(I,J)  -  UINLET 
TKE (I, J)  -  0 . 005*U (I, J) **2 
TED (I, J)  -  CD*TKE (I,J)**1.5/(0. 03*RMAX) 

11  CONTINUE 

DO  12  J  -  1, MB2 
DO  12  I  -  LB1, LB2 
U(I,J)  -  0.0 
TKE (I, J)  -  0.0 
TED (I, J)  -  0.0 

12  CONTINUE 
RETURN 


ENTRY  DENSE 


DO  200  J  -  1,M1 
DO  200  I  -  1,L1 
DENOM  -  ABS (TED (I, J) )  +  TINY 
AMUT ( I , J)  -  CD*RHOCON*TKE (I, J) * *2 /DENOM 
200  CONTINUE 

DO  202  J  -  1,MB2 
DO  202  I  -  LB1 , LB2 
AMUT (I, J)  -  0.0 
202  CONTINUE 
RETURN 


ENTRY  BOUND 


AXIS  AND  OUTER  WALL 

DO  300  I  -  2, LI 

U(I,1)  -  U(I, 2) 

U(I, Ml)  -  0.0 

V(I, 2)  -  0.0 

V ( I , Ml )  -  0.0 

TKE (1,1)  -  TKE (I, 2) 

TKE  ( I , Ml )  -  0.0 
TED (1,1)  -  TED (I, 2) 

TED(I,M1)  -  0.0 
TURBE(I)  -  ABS (TKE (I, MNW) ) 

300  CONTINUE 
C 

DO  301  I  -  LV1 ,  LV2 
V(I, 2)  -  UINJECT 
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V  ( 1 , 3)  -  UINJECT 
CONTINUE 


C 

C 

C 

C 


C 

C 

C 


CALL  WALLSTRESS (ECON, CAPPA, CD25, AMU, RHOCON, DISTN, TURBE,  TOUN, 2,  LI) 


INLET  AND  OUTLET 


DO  302  J-1,M2 

U (2,  J) 

- 

UINLET 

U(L1, J) 

- 

U(L2, J) 

V(l,  J) 

- 

0.0 

V (LI, J) 

- 

0.0 

TKE ( 1 , J ) 

- 

0 . 005*U (2, J) **2 

TKE (LI, J) 

mm 

TKE (L2, J) 

TED ( 1, J) 

- 

CD*TKE (1,  J) **1 .5/ (0 . 03*RMAX) 

TED (LI, J) 

- 

TED (L2 , J) 

302  CONTINUE 

OUTER  AND 

BACK  WALLS  OF  CHAMBER 

DO  304  I  -  LB1, LB2 
U (I, MB2)  -  0.0 
V (I,MB2)  -  0.0 

V(I,MB2+1)  -  0.0 
TKE (I,MB2)  -  0.0 
TED (I,MB2)  -  0.0 
TURBE ( I )  -  ABS(TKE(I,MSW) ) 

304  CONTINUE 


C 


C 


C 


C 

C 

C 

C 


CALL  WALLSTRESS (ECON, CAPPA, CD25, AMU, RHOCON, DISTS, TURBE,  TOUS, 
LB1 , LB2 ) 


DO  306  J  -  1 , MB2 
U(LB2,J)  -  0.0 
U (LB2+1, J)  -  0.0 
V (LB2, J)  -  0.0 
TKE (LB2 , J)  -  0.0 
TED (LB2,  J)  -  0.0 
TURBE  (J)  **  ABS  (TKE  (LWW,  J)  ) 

306  CONTINUE 

CALL  WALLSTRESS (ECON, CAPPA, CD25, AMU, RHOCON, DISTW,  TURBE,  TOVW, 
:  1,MB2) 


FABRIC 

DO  308  J  -  1,MB2 
V (LF1, J)  -  0.0 
V (LF2, J)  -  0.0 
TURBE (J)  -  ABS (TKE (LEW, J) ) 

308  CONTINUE 


C 


C 

C 

C 

C 

C 

C 


CALL  WALLSTRESS (ECON, CAPPA, CD 2 5, AMU, RHOCON, DISTE, TURBE,  TOVE, 
1,MB2) 


ENTRY  GRADIENT 


COMPUTE  GENK-GK (I, J)  AT  MAIN  GRID  POINTS  FOR  USE 
IN  TURBULENT  ENERGY  AND  DISSIPATION  EQUATIONS 

DO  404  J  -  2, M2 
DO  402  I  -  2,L2 

UPX  -  (U(I+1,J)  -  U (I, J) ) /XCV (I) 

VPY  -  <V(I,J+1)  -  V(I, J) ) /YCV(J) 
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VOR  -  0 . 5* (V (I, J+l)  +  V(I,J))/Y(J) 

UNSIDE  -  0.5*(<U(I,J)  +  U (1+1, J) ) *FYM ( J+l ) 

+  (U(I,J+1)  +  U(I+1, J+l) )*FY(J+1) ) 
USSIDE  -  0.5*<(U(I, J-l)  +  U(I+1, J-l) ) *FYM(J) 
+  (U(I,J)  +  U (1+1, J) ) *FY ( J) ) 

VESIDE  -  0 . 5* ( (V { I , J)  +  V(I, J+l) ) *FXM(I+1) 

+  <V(I+1,J)  +  V(I+1, J+l) )*FX(I+1) ) 
VWSIDE  -  0.5* ( (V(I-1, J)  +  V(I-1, J+l) ) *FXM(I) 
+  (V(I,J)  +  V(I, J+l) )*FX(I) ) 

UPY  -  (UNSIDE  -  USSIDE) /YCV(J) 

VPX  -  (VESIDE  -  VWSIDE) /XCV(I) 


GK(I, J)  -  AMUT ( I , J) * ( 2 . * (UPX*UPX  +  VPX*VPX  + 
:  +  (UPY  +  VPX) **2) 

402  CONTINUE 
404  CONTINUE 
RETURN 
C 

C  - 


ENTRY  GAMSOR 
C  - 

c 

c  S  -  SC  +  SP*U  SO,  AP  -  SP  &  CON  - 


C 

C 

C 

500 


501 


GO  TO  (500,  550,  600,  799,  650,  700) ,NF 
-  U  -  VELOCITY  - 


CONTINUE 
DO  502  J  -  1,M1 
DO  501  I  -  1, LI 

GAM(I,J)  -  AMU  +  AMUT (I, J) 
CONTINUE 


C 


C 


C 


GAM(L1,J)  -  0.0 
502  CONTINUE 

DO  504  I  -  2, LI 
GAM (1,1)  -  0.0 
504  CONTINUE 


BOX  TOP 

DO  505  I  -  LB1, LB2 
AP (I,MB2)  -  -BIG 
505  CONTINUE 


BOX  BACK 

DO  506  J  -  1,MB2 

AP (LB2 , J)  -  -BIG 
AP (LB2+1, J)  -  -BIG 
506  CONTINUE 


DO 


FABRIC 

508  J  -  1,MF2 
I  -  LF1 

AP(I,J)  .  -0.5 *XCV ( I ) * AA*AMU 
I  “  LF2 

AP (I, J)  -  -XDIF(I) *AA*AMU 
I  -  LF2  +  1 


508 

C 

C 

C 

C 

550 


AP (I» J)  -  -0 . 5*XCV (1-1 ) *AA*AMU 
CONTINUE 


RETURN 


INJECTOR 


V  -  VELOCITY 


CONTINUE 
DO  552  J  -  1,M1 
DO  552  I  -  1, LI 

GAM (I, J)  -  AMU  +  AMUT (I, J) 
GAM(1, J)  -  0.0 


SC 


VOR*VOR) 
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CONTINUE 

BOX  TOP 

DO  555  I  -  LBl, LB2 

AP(I,MB2)  -  -BIG 

AP (I,MB2+1)  -  -BIG 

CONTINUE 

BOX  FRONT  &  BACK 

DO  556  J  -  2,MB2 
AP (LF1 , J)  -  -BIG 
AP  (LF2 ,  J)  -  -BIG 
AP (LB2 , J)  -  -BIG 
CONTINUE 

INJECTOR 

DO  559  J  -  2,3 

DO  559  I  -  LV1, LV2 

CON {I, J)  -  BIG*UINJECT 
AP (I , J)  -  -BIG 
CONTINUE 

RETURN 


PRESSURE  CORRECTION 


CONTINUE 

RETURN 


-  TKE  -  TURBULENT  KINETIC  ENERGEY  _ 

SOURCE  TERMS 

CONTINUE 
DO  651  J  -  2, M2 
DO  651  I  -  2,  L2 

RHOTED  -  RHOCON*TED ( I, J) 

CON ( I, J)  -  1 . 5*GK(I, J)  +  C2M*RHOTED 

continue"  ‘(0-5*GK(I'J)  +  C2*RHOTED)/(TKE(I,J)+TINY) 


WALL  TERMS 

DO  653  I  -  2, L2 

UP  -  ABS (0 . 5* (U (I+1,MNW)  +  U(I,MNW))) 

UPY  -  UP/DISTN 

TAUN(I)  -  ABS (TOUN(I) *UP) 

CON (I,MNW)  -  TAUN (I) *UPY 

CONTINUE }  "  “CDR2*TKE(I'MNW>  *UPY/(TAUN(I)+TINY) 

DO  655  I  -  LSW1, LSW2 

UP  -  ABS (0 . 5* (U(I+1,MSW)  +  U(I,MSW))) 

UPY  -  UP/DISTS 

TAUS (I)  -  ABS (TOUS (I) *UP) 

CON ( I , MSW)  -  TAUS ( I ) *UPY 

CONTINUE }  "  ”CDR2*TKE(I,MSW) *UPY/ (TAUS (I)+TINY) 

DO  657  J  -  M£W1,MEW2 

VP  -  ABS (0 . 5* ( V (LEW,  J+l)  +  V(LEW,J))) 

VPX  -  VP/DISTE  '  }>) 

TAUE(J)  -  ABS (TOVE (J) *VP) 

CON (LEW, J)  -  TAUE ( J) *VPX 

CONTINUE^  "  ~CDR2l>TKE  (LEW,  J)  *VPX/  (TAUE  ( J)  +TINY) 


DO  659  J  -  MWW1,MWW2 

VP  -  ABS  (0 . 5*  (V (LWW,  J+l) 
VPX  -  VP/DISTW 


V (LWW,  J) ) ) 
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TAUW(J)  -  ABS(TOVW(J) *VP) 

CON (LWW, J)  -TAUW(J)*VPX 

AP ( LWW , J )  -  -CDR2*TKE {LWW, J) *VPX/ (TAUW ( J) +TINY) 
659  CONTINUE 
C 

DO  665  J  -  1/ Ml 
DO  665  I  -  1, LI 

GAM ( I ,  J )  -  AMU  +  AMUT ( I , J ) / PRTKE 

665  CONTINUE 

DO  666  I  -  1, LI 
GAM (1,1)  -  0.0 

666  CONTINUE 
C 

DO  667  J  -  1,M1 
GAM (LI , J)  -  0.0 

667  CONTINUE 

C  BOX 

DO  675  J  -  1,MB2 
DO  675  I  *=  LB1 ,  LB2 
AP ( I , J)  -  -BIG 
675  CONTINUE 

RETURN 

-  TED  -  TURBULENT  ENERGY  DISSIPATION  - 

SOURCE  TERMS 

>0  DO  701  J  -  2, M2 
DO  701  I  -  2, L2 

DENOM  -  ABS (TKE (I, J) +TINY) 

TEOK  -  ABS (TED (I, J) ) /DENOM 
RHOTED  -  RHOCON*ABS (TED (I, J)  ) 

CON ( I, J)  -  (C1*GK(I,J)  +  C2M*RHOTED) *TEOK 
AP(I,J)  -  -TC2MH.-’OCON*TEOK 
701  CONTINUE 

WALL  TERMS 

DO  703  I  -  2,L2 

ATK  -  ABS (TKE (I, MNW) ) 

CON(I,MNW)  -  FCTRN*ATK*SQRT (ATK) 

AP ( I , MNW )  -  -BIG 
703  CONTINUE 

DO  705  I  -  LSW1 , LSW2 

ATK  -  ABS (TKE (I, MS W) ) 

CON ( 1/ MSW)  -  FCTRS*ATK*SQRT (ATK) 

AP (I ,MSW)  -  -BIG 
705  CONTINUE 

DO  707  J  -  MEW1,MEW2 

ATK  -  ABS (TKE (LEW,  J)  ) 

CON (LEW, J)  -  FCTRE*ATK*SQRT (ATK) 

AP(LEW,J)  -  -BIG 
707  CONTINUE 

DO  709  J  -  MWW1 , MWW2 

ATK  -  ABS (TKE (LWW, J) ) 

CON (LWW, J)  -  FCTRW*ATK*SQRT(ATK) 

AP (LWW, J)  -  -BIG 
709  CONTINUE 

DO  725  J  -  1,M1 
DO  725  I  -  1, LI 

GAM (I, J)  -  AMU  +  AMUT (I, J) /PRTED 

725  CONTINUE 
DO  726  I  -  1 , LI 

GAM (1,1)  -  0.0 

726  CONTINUE  107 


DO  121  J  -  1,M1 
GAM  (LI,  J)  -  0.0 
727  CONTINUE 

c  BOX 

DO  735  J  -  1, MB2 
DO  735  I  -  LB1, LB2 
AP(I,J)  -  -BIG 
735  CONTINUE 
RETURN 
C 

799  RETURN 
C 

C  - 

ENTRY  WALL 

C  - 

C 

C  AJP  -  An,  AJM  -  As,  AIP  -  Ae,  AIM  -  Aw 


GOTO  (800,820,899,899,850,860), 
C 

C  U  -  VELOCITY 

C 

800  CONTINUE 

DO  802  I  -  2 , L2 

AJP(I,MNW)  -  (TOUN (I- I) *FXM (I)  + 

802  CONTINUE 

DO  803  I  -  LB1, LB 2 

AJM  ( I , MSW )  «  (TOUS (1-1) *FXM (I)  + 

803  CONTINUE 
RETURN 


C 

C 

C 

820 


V  -  VELOCITY 


CONTINUE 
DO  823  J  -  MEW1 , MEW2 
AIP (LEW, J)  -  (TOVE(J-l) *FYM(J)  + 

823  CONTINUE 

DO  824  J  -  MWW1,MWW2 
AIM  (LWW, J) 

824  CONTINUE 


(TOVW(J-l) *FYM(J)  + 


C 

C 

C 

850 


RETURN 

TKE  -  TURBULENT  KINETIC  ENERGY 

CONTINUE 

RETURN 


NF 

TOUN (I) *FX (I) ) *XDIF (I) *YV(M1) 
TOUS ( I ) *FX ( I ) ) *XDIF ( I ) *YV (MSW) 


TOVE ( J) *FY ( J) ) *YDIF ( J) *YV ( J) 
TOVW(J) *FY ( J) ) *YDIF ( J) *YV ( J) 


C 

C  TED  -  TURBULENT  ENERGY  DISSIPATION 

860  CONTINUE 
RETURN 
899  RETURN 
C  - 


ENTRY  OUTPUT 

C  - 

C 


IF  ( ITER. NE. LAST)  RETURN 


CALL  PUTOUT 
C 


RETURN 

END 

subroutine  meshgen (nreg, ncell, ndcrs, el, en, x, nxs) 
implicit  real*8  (a-h,o-z) 
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c 


c 


c 


c 


c 


c 

c 

c 


implicit  integer (i-n) 

dimension  ncell (1 ) , ndcrs (1) /el (1) /en(l) ,  x (1) 

x(l)  -  0.0 

x (2 )  -  0.0 

mo  -  2 

mf  -  ncell (1)  +  mo 
nxs  •*  mo 


do  1  n  -  l,nreg 

mf  -  ncell (n)  +  mo 
x(mf)  —  x(mo)  +  el(n) 
pwr  -  1.0/en(n) 
nx  •  ncell (n) 
nsgn  »  ndcrs (n) 
nxs  -  nxs  +  nx 

call  coord(pwr,nx,nsgn,mo,mf,x) 
mo  m  mf 

mf  *  ncell (n+1)  +  mo 
1  continue 
return 
end 

subroutine  coord(pwr, nx, nsgn, mo, mf,  x) 
implicit  real*8  (a-h,o-2) 
implicit  integer (i-n) 
dimension  x(l),si(l00) 

dsi  -  1.0/nx 
si (1)  -  0.0 
si(nx+l)  -  1.0 
do  1  i  “  2 ,  nx 

si  (i)  -  si(i-l)  +  dsi 

1  continue 

do  2  i  ■  l,nx 

if  (nsgn  .ge.  0)  then 
si (i+1)  -  si (i+1) **pwr 
G  XSG 

si (i+1)  -  1.0  -  (1.0  -  si (i+1) ) **pwr 
endif 

2  continue 
xo  “  x(mo) 
xf  -  x(mf) 
nxl  -  nx  +  1 
do  3  i  *  l,nxl 

ix  -  mo+i-1 

x(ix)  -  (xf  -  xo) *si (i)  +  xo 

3  continue 
return 
end 

subroutine  wall stress (e, cappa, cd25, amu, rho, dist, tke, tauovel, kl, k2) 
implicit  real*8  (a-h,o-z) 
implicit  integer (i-n) 
dimension  tke (1) , tauovel (1) 

computes  wall  stress  divided  by  the  velocity 


do  1  i  -  kl,k2 

rk  -  rho*sqrt (tke (i) ) 
yplus  -  rk*cd25*dist/amu 
if  (yplus  .gt.  11.5)  then 

tauovel (i)  -  cappa*rk*cd25/dlog(e*yplus) 
else 

tauovel (i)  ■  amu/dist 
endif 
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1  continue 
return 
end 


NSTEADY 

1 

DT 

0 . 1000E+31 

LAST,  (NTIMES (NEQ) ,  NEQ-1,NFP3) 

1000  1  1  1  1  1  1  0 

MODE,  IPREF,  JPREF 
2  120  2 

RHOCON, AMU, Cl , C2 , CD, CAPPA, ECON, PRTKE, PRTED 
0 . 1062E-06  0 . 2750E-08  0.1430E+01  0.1920E+01  0.9000E-01  0.4000E+00  0.9000E+01 

0 . 1000E+01  0 . 1300E+01 
ALP, BET, ARAT, DIA, EPS,  FABTHK 

0.8610E+01  0 . 4200E+00  0.1490E+03  0.2770E-02  0.4300E+00  0.2680E-01 
UINLET,  UINJECT 
0 . 5000E+02  0 . 2000E+02 

COMPUTATION  FOR  AXISYMMETRIC  SITUATION 

It**********-***-**'**-*'*-*-*-*'*-*-****-*-**-*'*-*'***-** 


AA,  BB,  SCFAC 

0 . 9235E+05  0.7780E-05  0.8933E-01 
RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
0 . 4000E+01  0 . 3207E-01  0.3207E-01  0  1206E+00  0.1206E+00 
DISTNI,  DISTEI,  DISTWI 
0 . 4069E-01  0 . 7500E-01  0.7500E-01 
FCTRN,  FCTRS,  FCTRE,  FCTRW 
0.1281E+32  0 . 1281E+32  0.3406E+31  0.3406E+31 
FCTRNI,  FCTRE I,  FCTRWI 
0 . 1010E+32  0 . 5477E+31  0.S477E+31 
IBOX1 ,  IBOX2,  JBOX 


51 

70 

10 

LB1 , 

LB2, 

MB1,  MB2 

52 

71 

1  11 

LNW1, 

LNW2 

,  MNW,  LSW1 ,  LSW2,  MSW 

1 

122 

31  52  71  12 

LEW, 

MEW1 , 

MEW2 ,  LWW,  MWW1,  MWW2 

51 

1 

11  72  1  11 

LEWI, 

LWWI 

,  MNW  I 

70 

54 

10 

LF1, 

LF2, 

MF1 ,  MF2 

52 

53 

1  10 

WF1 , 

WF2 

0 . 1500E+00  0 , 1500E+00 
LV1 ,  LV2 
56  68 

WROTE  F (I, J,K)  TO  RESTART  LI,  Ml,  NFD 
122  32  7 

WROTE  AMUT ( I, J)  TO  RESTART  LI,  Ml 
122  32 


QIN/QOUT  -  0.99 


EAST  WALL  -  U 


0 . 188E+02 
0. 194E+02 
0. 573E+02 
0 , 605E+02 
0 . 429E+02 


0 . 188E+02 
0 . 230E+02 
0. 589E+02 
0 . 597E+02 
0 . 366E+02 


0 . 152E+02 
0 . 283E+02 
0 . 599E+02 
0 . 585E+02 
0 . 259E+02 


0 . 144E+02 
0 . 361E+02 
0. 605E+02 
0. 563E+02 
0 . 000E+00 


0.146E+02 
0. 447E+02 
0 . 607E+02 
0. 536E+02 


0 . 154E+02 
0. 507E+02 
0 . 608E+02 
0 . 505E+02 


0. 170E+02 
0.546E-t-02 
0 . 609E+02 
0 . 471E+02 


WEST  WALL  -  U 


- . 876E+01  - . 876E+01 
0 . 168E+01  0 . 361E+01 
0 . 548E+02  0 . 586E+02 


629E+01 
0 . 644E+01 
0 . 617E+02 


- . 469E+01  - . 323E+01 
0 . 142E+02  0 . 329E+02 
0 . 640E+02  0 . 655E+02 
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- . 172E+01  920E-01 
0 . 447E+02  0 . 503E+02 
0 . 660E+02  0 . 657E+02 


0.652E+02  0 . 641E+02  0.627E+02  0.605E+02  0.580E+02  0.550E+02  0.S13E+02 
0 . 461E+02  0.379E+02  0.254E+02  O.OOOE+OO 


OUTLET 

0. 444E+02 
0. 509E+02 
0 . 563E+02 
0 . 571E+02 
0 . 339E+02 

U  AT  I 

0.000E+00 
0.000E+00 
0 . 537E+02 
0. 652E+02 
0 . 468E+02 

U  FOR 

0 . 188E+02 
0.583E+02 
-. 302E+02 
0  .  OOOE+OO 
0.146E+02 
0. X76E+01 
- .  741E+01 
0.000E+00 
0 . 283E+02 
- .  346E+02 
0 . 289E+02 
O.OOOE+OO 

V  FOR 

0 . 263E+01 
0 . 200E+02 
0 . 200E+02 
0 . 862E+01 
0 . 143E+02 
0.703E+01 
0. 175E+02 
0 . 112E+02 
0 . 447E+02 
- .  24  6E+00 
0 . 185E+01 
0. 678E+01 

AXIAL 

0 . 706E-04 
0 . 568E-04 
0 . 510E-04 
0.476E-04 
0 . 455E-04 
0 . 477E-04 
0 . 707E-04 
0 . 171E-03 
- . 54  5E-03 
- . 326E-03 
0 . 159E-04 
- . 340E-04 
0 . 113E-04 
0 . 136E-04 
0 . 853E-05 


-  U 


.  444E+02 
. 518E+02 
.  571E+02 
0 . 514E+02 
0.285E+02 


0 . 460E+02  0 . 470E+02  0.481E+02  0.491E+02  0.500E+02 
0 . 526E+02  0 . 534E+02  0.542E+02  0.548E+02  0.556E+02 
0.579E+02  0 . 588E+02  0.596E+02  0.603E+02  0.605E+02 
0 . 484E+02  0 . 4 58E+02  0.432E+02  0.405E+02  0.376E+02 
0.208E+02  O.OOOE+OO 


-  LB2 


O.OOOE+OO 
O.OOOE+OO 
0 . 580E+02 
0 . 642E+02 
0 . 388E+02 


O.OOOE+OO 
O.OOOE+OO 
0. 614E+02 
0 . 628E+02 
0 . 262E+02 


O.OOOE+OO 
O.OOOE+OO 
0 . 639E+02 
0. 607E+02 
O.OOOE+OO 


O.OOOE+OO 
0 . 302E+02 
0. 654E+02 
0 . 582E+02 


O.OOOE+OO 
0 . 429E+02 
0 . 660E+02 
0 . 553E+02 


O.OOOE+OO 
0 . 487E+02 
0 . 657E+02 
0. 518E+02 


I-LEW, LWW+1  J-1,5,10 


0 . 162E+02 

0. 162E+02 

0 . 162E+02 

0 . 457E+02 

0 . 330E+02 

0 . 204E+02 

- . 429E+02 
-. 876E+01 

-. 555E+02 

-.  682E+02 

0 . 762E+00 

0 . 763E+00 

0. 764E+00 

0 . 757E+01 

0 . 811E+01 

0. 651E+01 

- .  704E+0I 
- . 323E+01 

0 . 436E+00 

0 . 144E+01 

- . 971E+01 

- .  971E+01 

- . 971E+01 

- . 350E+02 

- . 315E+02 

- .  238E+02 

0 . 322E+02 
0 . 644E+01 

0 . 312E+02 

0 . 271E+02 

I-LEW, LWW 

J-3,5,10 

O.OOOE+OO 

O.OOOE+OO 

- .  414E+02 

0 . 200E+02 

0 . 200E+02 

0 . 200E+02 

0 . 200E+02 

0 . 200E+02 

0 . 200E+02 

O.OOOE+OO 

O.OOOE+OO 

- .  268E+02 

0 . 173E+02 

0 . 242E+02 

0.290E+02 

0. 692E+01 

- .  106E+02 

- . 200E+02 

O.OOOE+OO 

O.OOOE+OO 

- .  48  6E+01 

0. 196E+01 

0 . 434E+0 1 

0. 660E+01 

- . 518E+00 

- .  230E+01 

- .  369E+01 

0 . 423E+02  0 . 836E+02  0.710E+02 
0 . 774E+01  - . 491E+01  -.176E+02 
- . 808E+02  - . 358E+02  O.OOOE+OO 

0 . 140E+01  0 . 257E+00  0.514E+00 
0 . 303E+01  - . 200E+01  -.568E+01 
0 . 150E+01  0 . 587E+00  O.OOOE+OO 

- . 184E+02  - . 257E+02  -.312E+02 
- . 119E+02  0 . 893E+01  0.209E+02 
0 . 205E+02  0 . 117E+02  O.OOOE+OO 


- . 653E+02  0 . 200E+02  0.200E+02 
0 . 200E+02  0 . 200E+02  0.200E+02 
- . 711E+02  - . 566E+02  O.OOOE+OO 

- . 242E+02  - . 168E+02  -.846E+01 
0 . 325E+02  0 . 296E+02  0.246E+02 
-. 278E+02  - . 328E+02  O.OOOE+OO 

- . 408E+01  - . 311E+01  - . 188E+01 
0 . 117E+02  0 . 671E+01  0.442E+01 
- . 496E+01  - . 654E+01  O.OOOE+OO 


PRESSURE 

0. 687E-04 
0. 557E-04 
0 . 504E-04 
0 . 472E-04 
0 . 455E-04 
0 . 489E-04 
0 . 788E-04 
0 . 184E-03 
- . 458E-03 
- . 375E-03 
- . 322E-04 
- . 268E-04 
0 . 137E-04 
0 . 128E-04 
0 . 803E-0S 


0 . 660E-04 
0 . 547E-04 
0 . 499E-04 
0 . 468E-04 
0 . 455E-04 
0 . 505E-04 
0 . 891E-04 
0 . 129E-03 
- . 388E-03 
- . 441E-03 
- . 394E-04 
- . 188E-04 
0 . 150E-04 
0.119E-04 
0 . 758E-05 


0 . 635E-04 
0 . 538E-04 
0 . 493E-04 
0.465E-04 
0 . 456E-04 
0 . 527E-04 
0 . 102E-03 
0 . 366E-04 
- . 335E-03 
- . 524E-03 
- . 42  5E-04 
- . 107E-04 
0 . 155E-04 
0 . 111E-04 
0 . 718E-05 
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0 . 615E-04 
0 . 530E-04 
0 . 489E-04 
0 . 462E-04 
0 . 458E-04 
0 . 556E-04 
0 . 117E-03 
- . 254E-04 
-. 299E-03 
- . 624E-03 
- . 439E-04 
- . 336E-05 
0 . 155E-04 
0 . 104E-04 
0 . 681E-05 


0 . 596E-04 
0 . 523E-04 
0 . 484E-04 
0 . 459E-04 
0 . 462E-04 
0 . 594E-04 
0 . 134E-03 
- . 236E-03 
- . 280E-03 
- . 185E-03 
- . 430E-04 
0 . 286E-05 
0 . 151E-04 
0.971E-05 
0. 647E-05 


0. 581E-04 
0 . 516E-04 
0 . 480E-04 
0 . 457E-04 
0 . 468E-04 
0.644E-04 
0 . 153E-03 
- . 64  9E-03 
- . 294E-03 
0 . 363E-04 
- . 396E-04 
0 . 775E-05 
0 . 144E-04 
0 . 909E-05 
0 . 615E-05 


0 . 585E-05  0 . 555E-0 5  0.525E-05  0.496E-05  0.466E-05  0.434E-05  0.402E-05 
0.367E-05  0 . 330E-05  0.290E-05  0.247E-05  0.200E-05  0.148E-05  0.870E-06 
0 . OOOE+OO  0 . 821E-06  0.140E-05 


PRESSURE  AT  J  -  5 


0 . 706E-04 
0 . 569E-04 
0 . 511E-04 
0.476E-04 
0 . 455E-04 
0 . 469E-04 
0 . 651E-04 
0 . 159E-03 
0 . 154E-03 
0. 195E-03 
0 . 861E-04 
- .  379E-04 
0 . 909E-05 
0 . 121E-04 
0 . 796E-05 
0.562E-05 
0 . 355E-05 
0. 124E-06 


0. 687E-04 
0 . 558E-04 
0.505E-04 
0 . 472E-04 
0 . 454E-04 
0 . 479E-04 
0 . 715E-04 
0. 183E-03 
0 . 1S0E-03 
0 . 173E-03 
- .  430E-04 
- . 301E-04 
0 . 114E-04 
0 . 114E-04 
0 . 7  53E-0 5 
0. 534E-05 
0 . 319E-05 
0 . 516E-06 


0 . 661E-04 
0 . 548E-04 
0 . 499E-04 
0 . 468E-04 
0 . 453E-04 
0 . 492E-04 
0 . 795E-04 
0. 194E-03 
0 . 164E-0  3 
0.161E-03 
460E-04 
- .  216E-04 
0 . 127E-04 
0 . 108E-04 
0 . 715E-05 
0 . 507E-05 
0 . 280E-05 
0 . 793E-06 


0 . 637E-04 
0 . 539E-04 
0 . 494E-04 
0 . 465E-04 
0 . 453E-04 
0 . 510E-04 
0 . 896E-04 
0.189E-03 
0 . 188E-03 
0 . 165E-03 
478E-04 
131E-04 
0 . 134E-04 
0 . 101E-04 
0 . 680E-05 
0 . 479E-05 
0.238E-05 


0 . 616E-04 
0. 531E-04 
0 . 489E-C4 
0 . 462E-04 
0 . 455E-04 
0. 533E-04 
0 . 102E-03 
0 . 185E-03 
0 . 210E-03 
0 . 172E-03 
- . 48  6E-04 
554E-05 
0 . 135E-04 
0 . 950E-05 
0 . 648E-05 
0 . 450E-05 
0 . 191E-05 


0 . 598E-04 
0. 524E-04 
0 . 485E-04 
0 . 459E-04 
0 . 4S8E-04 
0 . 563E-04 
0 . 118E-03 
0 . 174E-03 
0 . 222E-03 
0. 180E-03 
- . 474E-04 
0 . 739E-06 
0 . 132E-04 
0 . 894E-05 
0 . 618E-05 
0 . 420E-05 
0 . 140E-05 


0 . 582E-04 
0 . 517E-04 
0 . 480E-04 
0 . 457E-04 
0 . 462E-04 
0 . 602E-04 
0. 137E-03 
0 . 163E-03 
0 . 215E-03 
0 . 186E-03 
- .  439E-04 
0 . 559E-05 
0.127E-04 
0 . 842E-05 
0 . 589E-05 
0 . 389E-05 
0 . 831E-06 


X  NODE  LOCATIONS 


0.00000 
9.28999 
13.36090 
16.45264 
19.04881 
21.33124 
23.39198 
24.82500 
26.02500 
27.36306 
29.40041 
31 . 65115 
34.20087 
37.21463 
41.10883 
49.30294 


1 . 69706 
9.89117 
13.78537 
16.79913 
19.34885 
21.59959 
23.63694 
24.97500 
26.17500 
27.60802 
29.66876 
31.95119 
34.54736 
37.63910 
41.71001 
51.00000 


4.09706 
10.45773 
14 .19714 
17.13860 
19.64430 
21.86464 
23.87939 
25.12500 
26.32500 
27.85557 
29.94053 
32.25603 
34.90130 
38.07753 
42.35309 


5.33939 

10.99506 

14.59730 

17.47149 

19.93537 

22.12652 

24.07500 

25.27500 

26.47500 

28.10580 

30.21585 

32.56591 

35.26321 

38.53137 

43.04834 


6.33350 

11.50727 

14.98676 

17.79814 

20.22226 

22.38534 

24.22500 

25.42500 

26.62500 

28.35880 

30.49487 

32.88109 

35.61364 

39.00240 

43.81115 


7.18885 

11.99760 

15.36636 

18.11891 

20.50513 

22.64120 

24.37500 

25.57500 

26.77500 

28.61466 

30.77774 

33.20186 

36.01324 

39.49273 

44.66650 


7.95166 

12.46863 

15.73679 

18.43409 

20.78415 

22.89419 

24.52500 

25.72500 

26.92500 

28.87348 

31.06463 

33.52851 

36.40270 

40.00494 

45.66061 


8.64691 

12.92247 

16.09870 

18.74397 

21.05947 

23.14443 

24.67500 

25.87500 

27.12061 

29.13536 

31.35570 

33.86140 

36.80286 

40.54227 

46.90294 


Y  NODE  LOCATIONS 


0.00000 
1.29832 
1 . 91277 
3.48761 


0.23717 

1.38233 

2.01239 

3.58723 


0.57258 

1.46151 

2.12816 

3.67606 


0.74620 

1.53207 

2.27285 

3.75704 


0.88513 

1.59806 

2.55236 

3.83193 


1.00467 

1.66807 

2.94764 

3.90194 


1 .11128 
1.74296 
3.22715 
3.96793 


1.20844 

1.82394 

3.37184 

4.00000 


XU  LOCATIONS 


0.00000 

8.97998 

13.14534 

16.27759 

18.89762 

21.19623 

23.26886 

24.75000 

25.95000 

27.24121 

29.26708 

31.50231 

34.02944 


0.00000 

9.60000 

13.57645 

16.62769 

19.20000 

21.46625 

23.51510 

24.90000 

26.10000 

27.48490 

29.53375 

31.80000 

34.37231 


3.39411 

10.18234 

13.99428 

16.97056 

19.49769 

21.73292 

23.75879 

25.05000 

26.25000 

27.73114 

29.80377 

32.10238 

34.72241 


4 . 80000 
10.73313 

14 . 40000 
17.30665 
19.79091 
21.99636 
24.00000 
25.20000 

26.40000 
27.98001 
30.07728 
32.40968 
35.08020 


5  87878 
11.25700 
14.79459 
17.63633 
20.07984 
22.25668 
24.15000 
25.35000 
26.55000 
28.23160 
30.35442 
32.72214 
35.44622 
1  3 


6.78823 

11.75755 

15.17893 

17.95996 

20.36468 

22.51400 

24.30000 

25.50000 

26.70000 

28.48600 

30.63532 

33.04004 

35.82107 


7.58947 

12.23765 

15.55378 

18.27786 

20.64558 

22.76840 

24.45000 

25.65000 

26.85000 

28.74332 

30.92016 

33.36367 

36.20541 


8.31384 

12.69961 

15.91980 

18.59032 

20.92271 

23.01999 

24.60000 

25.80000 
27.00000 
29.00364 
31.20909 
33.69335 

36.60000 


37.00572  37.42355  37.85466  38.30039  38.76235  39.24245  39.74300  40.26687 
40.81766  41.40000  42.02002  42.68616  43.41053  44.21177  45.12122  46.20000 
47.60589  51.00000 


YV  LOCATIONS 


0.00000 

0.00000 

0.47434 

0 . 67082 

0.82158 

0.94868 

1.06066 

1.16190 

1.25499 

1 . 34164 

1.42302 

1. 50000 

1.56415 

1 . 63197 

1.70417 

1.78175 

1 .86612 

1.95943 

2.06535 

2 . 19098 

2.35472 

2.75000 

3.14528 

3.30902 

3.43465 

3.54057 

3.63388 

3.71825 

3.79583 

3.86803 

3.93585 

4 . 00000 

EAST  WALL  -  TKE 

0 . 203E+02  0 . 203E+02  0.251E+02  0.287E+02  0.328E+02  0.376E+02  0.432E+02 
0 . 506E+02  0 . 606E+02  0.748E+02  0.971E+02  0.168E+03  0.194E+03  0.194E+03 
0 . 169E+03  0 . 129E+03  0.858E+02  0.502E+02  0.268E+02  0.144E+02  0.795E+01 
0 . 605E+01  0 . 635E+01  0.886E+01  0.141E+02  0.204E+02  0.260E+02  0.309E+02 
0 . 354E+02  0 . 4 10E+02  0.671E+02  0.000E+00 


EAST  WALL  -  TED 

0 . 312E+03  0 . 312E+03  0.429E+03  0.524E+03  0.640E+03  0.785E+03  0.968E+03 
0 . 122E+04  0 . 161E+04  0.220E+04  0.326E+04  0.555E+04  0.571E+04  0.508E+04 
0 . 391E+04  0 . 258E+04  0.146E+04  0.686E+03  0.265E+03  0.819E+02  0.180E+02 
0 . 979E+01  0 . 152E+02  0.375E+02  0.913E+02  0.175E+03  0.283E+03  0.444E+03 
0 . 769E+03  0.174E+04  0.705E+04  0.000E+00 


WEST  WALL  -  TKE 

0 , 323E+02  0 . 323E+02  0.285E+02  0.253E+02  0.220E+02  0.187E+02  0.154E+02 
0 . 124E+02  0 . 992E+01  0.809E+01  0.181E+02  0.819E+02  0.106E+03  0.976E+02 
0 . 897E+02  0 . 795E+02  0.673E+02  0.541E+02  0.400E+02  0.247E+02  0.101E+02 
0 . 667E+01  0 . 754E+01  0.107E+02  0.157E+02  0.208E+02  0.255E+02  0.305E+02 
0 . 368E+02  0 . 450E+02  0.665E+02  0.000E+00 


WEST  WALL  -  TED 

0 . 624E+03  0.624E+03  0.519E+03  0.433E+03  0.350E+03  0.275E+03  0.206E+03 
0.149E+03  0 . 106E+03  0.784E+02  0.262E+03  0.634E+04  0.394E+04  0.251E+04 
0 . 183E+04  0 . 136E+04  0.989E+03  0.686E+03  0.433E+03  0.216E+03  0.494E+02 
0 . 150E+02  0 . 215E+02  0.497E+02  0.105E+03  0.185E+03  0.305E+03  0.526E+03 
0 . 100E+04  0 . 218E+04  0.695E+04  O.OOOE+OO 


OUTLET  -  TKE 

0 . 304E+02  0 . 304E+02  0.320E+02  0.326E+02  0.329E+02  0.328E+02  0.324E+02 
0.317E+02  0 . 308E+02  0.297E+02  0.285E+02  0.271E+02  0.257E+02  0.241E+02 
0 . 222E+02  0 . 200E+02  0.175E+02  0.146E+02  0.115E+02  0.864E+01  0.699E+01 
0 . 172E+02  0 . 288E+02  0.325E+02  0.348E+02  0.362E+02  0.368E+02  0.368E+02 
0 . 362E+02  0 . 342E+02  0.531E+02  0.000E+00 


OUTLET  -  TED 

0 . 795E+02  0 . 795E+02  0.912E+02  0.976E+02  0.102E+03  0.104E+03  0.105E+03 
0 . 105E+03  0 . 103E+03  0.996E+02  0.955E+02  0.908E+02  0.856E+02  0.793E+02 
0 . 717E+02  0 . 629E+02  0.528E+02  0.417E+02  0.301E+02  0.200E+02  0.167E+02 
0 . 672E+02  0 . 156E+03  0.200E+03  0.245E+03  0.297E+03  0.368E+03  0.479E+03 
0 . 693E+03  0 . 128E+04  0.496E+04  0.000E+00 


TKE  FOR  I-LEW, LWW, 2  J-1,5,10 
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0 . 203E+02  0 . 266E-68  0,912-138  0.272-206  0.363-275  0.000E+00  0.865-314 
0.325-244  0.273-175  0.988-107  0.000E+00 

0 . 328E+02  0 . 104E-70  0.563-143  0.512-216  0.342-287  0.000E+00  O.OOOE+OO 
0.420-265  0.296-192  0.392-110  0.000E+00 

0 . 748E+02  0 . 245E-70  0.156E-70  0.122E-70  0.112E-70  0.113E-70  0.117E-70 
0 . 122E-70  0 . Z 27E-70  0.133E-70  O.OOOE+OO 


TED  FOR  I“LEW,  LWVJ,  2  J-1,5,10 


0 . 312E+"  3 

0.357E-32 

0 . 409E-67 

0.468-102 

0.140-136 

0.830-171 

0.417- 

205 

0.172-239 

0.557-274 

0.130-308 

O.OOOE+OO 

O.OOOE+OO 

0.160-312 

0.129- 

277 

0.601-243 

0.198-208 

0.504-174 

0.104-139 

0.183-105 

0 . 720E-71 

O.OOOE+OO 

0 . 624E+03 
0 . 640E+0  3 

0 . 368E-33 

0 . 201E-69 

0.110-105 

0.109-141 

0.258-178 

0.991- 

215 

0.124-250 

0.662-286 

0.375-321 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0.335- 

299 

0.638-264 

0.128-228 

0.450-191 

0.292-150 

0.595-109 

0 . 389E-71 

O.OOOE+OO 

0 . 350E+03 
0 . 220E+04 

0 . 533E-68 

0 . 358E-68 

0 . 248E-68 

0 . 185E-68 

0 . 149E-68 

0.129E 

-68 

0 . 118E-68 

0 . 114E-68 

0 . 113E-68 

0 . 114E-68 

0 . 117E-68 

0 . 121E-68 

0.124E 

-68 

0 . 129E-68 

0 . 133E-68 

0 . 137E-68 

0 . 142E-68 

0 . 146E-68 

0 . 151E-68 

O.OOOE+OO 

0 . 784E+02 


AMUT  FOR  I “LEW, LWW, 2  J-1,5,10 


0. 127E-07 

0 . OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . 159E-07 

0 . 161E-07 

0 .  OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . 131E-07 

0 . 243E-07 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . 798E-08 

TAUN 

0 . 372E-05 

0 . 284E-05 

0 . 236E-05 

0 . 208E-05 

0 . 191E-05 

0 . 181E-05 

0.174E-05 

0 . 170E-05 

0 . 167E-05 

0 . 165E-05 

0 . 163E-05 

0 . 162E-05 

0 . 161E-05 

0 . 160E-05 

0. 160E-05 

0 . 159E-05 

0 . 159E-0  5 

0 . 158E-0  5 

0 . 158E-05 

0 . 157E-0S 

0 . 157E-05 

0 . 157E-05 

0 . 156E-05 

0 . 156E-05 

0 . 156E-05 

0 . 156E-05 

0 . 156E-05 

0 . 155E-05 

0 . 155E-05 

0 . 155E-05 

0 . 156E-05 

0 .156E-05 

0 . 156E-05 

0.157E-05 

0 . 158E-05 

0 . 159E-05 

0 . 161E-05 

0 . 162E-05 

0 . 165E-05 

0 . 168E-05 

0 . 171E-05 

0 . 175E-05 

0 . 180E-05 

0.185E-05 

0 . 191E-05 

0 . 198E-05 

0 . 204E-05 

0 . 212E-05 

0 . 219E-05 

0 . 225E-05 

0 . 230E-05 

0 . 234E-05 

0 . 236E-05 

0 . 239E-05 

0 . 240E-05 

0 . 242E-05 

0 . 243E-05 

0 . 243E-05 

0.243E-05 

0 . 243E-05 

0 . 242E-05 

0 . 241E-05 

0 . 239E-05 

0 . 238E-05 

0 . 236E-05 

0 . 234E-05 

0 . 231E-05 

0 . 229E-05 

0 . 226E-05 

0 . 224E-05 

0 . 220E-05 

0 . 215E-05 

0 . 210E-05 

0 . 204E-05 

0 . 199E-05 

O.193E-05 

0. 187E-05 

0 . 181E-05 

0. 176E-05 

0 . 171E-05 

0. 166E-05 

0 . 161E-05 

0 . 158E-05 

0 . 154E-05 

0 . 152E-05 

0. 149E-05 

0 . 148E-0  5 

0 .147E-05 

0 . 146E-05 

0 . 146E-05 

0.146E-05 

0 . 146E-05 

0.146E-05 

0 . 147E-05 

0 . 147E-05 

0 . 148E-05 

0 . 148E-05 

0. 149E-05 

0. 149E-05 

0 . 150E-05 

0 . 150E-05 

0 .151E-05 

0 . 151E-05 

0 . 151E-05 

0 . 152E-05 

0 . 152E-05 

0 . 152E-05 

0. 152E-05 

0 . 152E-05 

0 . 152E-05 

0. 152E-05 

0 . 152E-05 

0 . 152E-05 

0 . 152E-05 

0 , 152E-0  5 

0 . 152E-05 

0 . 152E-05 

0 . 153E-05 

0 . 166E-05 

0 . 178E-05 

TAUS 

0 . 581E-05 

0 . 403E-05 

0 . 319E-05 

0 . 269E-05 

0 . 236E-05 

0.216E-05 

0 . 205E-05 

0 . 199E-05 

0 . 199E-05 

0 . 201E-05 

0 . 206E-05 

0 . 211E-05 

0 . 217E-05 

0 . 223E-05 

0 . 230E-05 

0 . 236E-05 

0 . 243E-05 

0 . 249E-05 

0 . 256E-05 

0 . 262E-05 

"AUE 

O.OOOE+OO 
0 . 108E-05 

0 . 298E-07 
0. 142E-05 

0 . 145E-06 
0 . 189E-05 

0 . 304E-06 
0 . 249E-05 

0 . 458E-06 

0 . 627E-06 

0 . 826E-06 

TAUW 

O.OOOE+OO 
0 . 211E-06 

0 . 117E-06 
0 . 175E-06 

0 . 246E-06 
0 . 126E-06 

0 . 267E-06 
0 . 449E-07 
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0.262E-06 

0 . 253E-06 

0 . 237E-06 

YPLUSN 
0. 579E+01 
YPLUSS 
0. 563E+01 
YPLUSW 
0. 120E+02 
YPLUSE 
0. 146E+02 


NO.  ITERATIONS  -  1000  LI,  Ml  -  122  32 


EQN  SWEEPS 

11  2  1  3  1 

7  0 


1  5  1  6  1 
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APPENDIX  E 

User  Routine  for  Output  Control 

The  routine  used  to  control  printed  output,  generation  of  a  file  for  restart 
information  used  to  initiate  the  model  for  agent  transport,  and  generation  of  a  file  for 
plotting  data  used  by  the  plotting  routines  is  given  here. 
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c 

c 


c 


c 


c 

c 

c 

c 

c 


c 


c 


c 


c 


c 


SUBROUTINE  PUTOUT 

IMPLICIT  REAL*8 (A-H,0-Z) 

IMPLICIT  INTEGER ( I -N) 

PARAMETER  ( ID-151 , JD- 151, NFD-7, NFP3-7 , MI J-l 51 ) 

LOGICAL  LSTOP 

COMMON/ BLOCK/ F  ( ID,  JD,  NFD)  ,  GAM  (ID,  JD)  ,  CON  (ID,  JD)  , 

:  AIP(ID, JD)  ,  AIM  (ID,  JD)  ,AJP(ID,  JD)  ,AJM(ID,  JD)  ,  AP  (ID,  JD)  , 

:  X ( ID ) , XU ( ID) , XDIF ( ID) , XCV ( ID) , XCVS (ID) , 

:  Y  <  JD)  ,  YV  ( JD)  ,  YDIF  ( JD)  ,  YCV  ( JD)  ,  YCVS  ( JD)  , 

:  YCVR(JD) , YCVRS (JD) ,ARX(JD) ,ARXJ(JD) , ARXJP ( JD) , 

:  R(  JD)  ,  RMN  ( JD)  ,  SX  ( JD)  ,  SXMN  ( JD)  ,  XCVI  (ID)  ,  XCVIP  (ID) 

COMMON  DU (ID, JD) ,DV(ID, JD) ,  FV ( JD) , FVP ( JD)  , 

:  FX (ID) , FXM (ID) , FY ( JD) , FYM ( JD) , PT (MIJ) , QT (MIJ) 

COMMON/ INDX/NF , NFMIN, NFMAX, NP , NRHO, NGAM, LI , L2 , L3, Ml , M2 ,  M3 , 
:  1ST, JST, ITER, LAST, IPREF, JP REF, MODE, NTIMES (NFP3) 

COMMON/ VARI /TIME , DT , RELAX (NFP 3 ) , RHOCON 

COMMON/ CNTL/LSTOP 

COMMON/ COEF /FLOW, DIFF, ACOF 

COMMON/ INOUT/IN, 10 

COMMON/ STRESS/TOUN ( ID) , TOUS (ID) , TOVE (ID) , TOVW (ID) , 

:  TAUN (ID) , TAUS (ID) ,TAUE(ID) ,TAUW(ID) , 

:  TOUNI (ID) , TOyEI (ID) , TOVWI (ID) , 

:  TAUNI (ID) ,TAUEI (ID) ,TAUWI (ID) , AMUT (ID, JD) 

COMMON/ PROP/  AMU, Cl, C2, CD, CAPPA, ECON, PRTKE, PRTED, 

:  ALP,BET,ARAT,DIA,EPS,FABTHK,UINLET,  UINJECT, 

:  CD5,CD25, CD75,C2M,TC2M, CDR2 

COMMON/BOX/  WF1 , WF2 , SCFAC, AA, BB, DISTN, DISTS , DISTE, DISTW, 

:  DISTNI, DISTEI,DISTWI 

COMMON/ IBOX/  LB1, LB2,MB2, LNW1 , LNW2 , LSW1 , LSW2 , MNW, MSW, 

:  MEW1 , MEW2 , MWW1 , MWW2 , LEW, LWW, LF1 , LF2 , MF1 , MF2 , 

:  MNWI , LWWI , LEWI 

DIMENSION  U(ID, JD) ,V(ID, JD) , PC(ID, JD) , P (ID, JD) , TKE (ID, JD)  , 
:  TED(ID, JD) ,GK(ID, JD) 

EQUIVALENCE  (F ( 1, 1, 1 ) , U (1 , 1 ) ) , (F (1, 1, 2) , V (1, 1 ) ) , 

:  (F (1, 1, 3) ,PC (1,1)), (F (1, 1, 4) , P (1, 1) ) , 

:  (F (1, 1, 5) ,TKE (1, 1) ) , (F(l, 1, 6) , TED (1,1) ) 

F (I, J, 1)  -  U 
F  (I,  J,  2 )  -  V 
F(I, J, 3)  -  PC 
F  ( I,  J,  4 )  -  P 
F  (I,  J,  5)  -  TKE 
F(I, J, 6)  -  TED 


DATA  TINY, BIG  /l.E-30,  l.E+30/ 
CREATE  RESTART  FILE 


REWIND  12 
WRITE (12)  ITER 
DO  10  K  -  1,NFD 
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DO  10  J  -  1, Ml 
DO  10  I  -  1/ LI 

WRITE ( 12 )  F (I, J, K) 

10  CONTINUE 

WRITE (IO,*)  '  WROTE  F(I,J,K)  TO  RESTART  LI,  Ml,  NFD  ' 
WRITE (10, 6100)  LI, Ml, NFD 
DO  11  J  -  1,M1 
DO  11  I  -  1, LI 

WRITE (12)  AMUT (I , J) 

11  CONTINUE 

WRITE (10, *)  '  WROTE  AMUT (I, J)  TO  RESTART  LI,  Ml  ' 

WRITE (10, 6100)  LI, Ml 
6100  FORMAT (1015) 

C 

CLOSE (UNIT-12,  STATUS-' KEEP' ) 

C 

C  CONSTRUCT  BOUNDARY  PRESSURES  BY  EXTRAPOLATION 

C 

DO  21  J  -  2, M2 

P(1,J)  -  (P (2, J) *XCVS (3)  -  P(3, J)*XDIF(2) )/XDIF(3) 

P (LI, J)  -  (P(L2, J)*XCVS(L2)  -  P  (L3,  J)  *XDIF  (LI)  ) /XDIF  (L2) 

21  CONTINUE 

DO  22  I  -  2, L2 

P(I,1)  -  (P (I, 2) *YCVS (3)  -  P(I,3)*YDIF(2) )/YDIF(3) 

P ( I , Ml )  -  (P (I, M2) *YCVS (M2)  -  P (I, M3) *YDIF (Ml) ) /YDIF (M2) 

22  CONTINUE 

P(l,l)  -  P  (2 , 1 )  +  P (1, 2)  -  P  (2 , 2 ) 

P (LI , 1 )  -  P  <L2, 1)  +  P (LI, 2 )  -  P(L2,2) 

P ( 1 , Ml )  -  P (2, Ml)  +  P (1,M2)  -  P (2, M2) 

P (LI, Ml)  -  P (L2,M1)  +  P (L1,M2)  -  P(L2,M2) 

C 

PREF  -  P (IPREF, JPREF) 

C 

DO  23  J  -  1,M1 
DO  23  I  -  1, LI 

P(I,J)  -  P(I,J)  -  PREF 

IF  (P(I,J)  .LT.  -l.E-1)  P(I,J)  -  0.0 

23  CONTINUE 
C 

C 

C  RATIO  OF  VOLUME  INFLOW  TO  VOLUME  OUTFLOW 

C 

QIN  -  0.0 
QOUT  -  0.0 
DO  25  J  -  2, Ml 

QIN  -  QIN  +  U (2 , J) *ARX ( J) 

QOUT  -  QOUT  +  U (L2 , J) *ARX ( J) 

25  CONTINUE 

C  DO  26  J  -  MU1,MU2 
C  QIN  -  QIN  +  UNI JECT*ARX ( J) 

C  26  CONTINUE 

QINOUT  -  QIN/ (QOUT  +  TINY) 

C 

606  FORMAT (7 (IX, e9. 3) ) 

WRITE (IO, 612)  QINOUT 
612  FORMAT </5X, 'QIN/QOUT  -',F6.2) 

WRITE (10, 614) 

614  FORMAT (/5X, 'EAST  WALL  -  U  ',/) 

WRITE (10,606)  (U(LEW, J) , J-1,M1) 

WRITE (10,616) 

616  FORMAT (/5X, 'WEST  WALL  -  U  ',/) 

WRITE(IO, 606)  (U(LWW+1, J) , J-1,M1) 

WRITE (IO, 618) 

618  FORMAT {/5X, 'OUTLET  -  U  ',/) 

WRITE (IO, 606)  (U(L1, J), J-1,M1) 

WRITE (10,620) 


119 


620 


622 

624 

625 

626 

627 

628 

629 

630 
636 

644 

645 

646 

647 

648 

649 
C 

676 

678 

C 

680 


FORMAT (/, 5X, 'U  AT  I  -  LB2 '  ,  / ) 

WRITE (10, 606)  (U (LB2, J) , 

WRITE (10, 622) 

FORMAT (/ , 5X,  'U  FOR  I-LEW.LWW+l  J-1,5,10'./) 
LWP  -  LWW  +1 

WRITE ( 10, 606)  (U (I, 1) ,  I-LEW, LWP) 

WRITE (10, 606)  (U (I, 5) ,  I-LEW,LWP) 

WRITE (10, 606)  (0(1,10),  I-LEW,LWP) 

WRITE (10, 624) 

FORMAT (/,5X,  'V  FOR  I-LEW, LWW  J-3,5,10',/) 
WRITE (10, 606)  (V (I, 3) ,  I-LEW, LWW) 

WRITE (10, 606)  (V (I , 5) ,  I-LEW,LWW) 

WRITE (10, 606)  (V (1,10) ,  I-LEW, LWW) 

WRITE (10, 625) 

FORMAT (/ , 5X,  ' AXIAL  PRESSURE' ,/ ) 

WRITE (10,606)  (P  ( 1 , 2 ) ,  1-1, LI) 

WRITE (10, 626) 

FORMAT </,5X,  'PRESSURE  AT  J  -  5',/) 

WRITE (10, 606)  (P  (1 , 5 ) ,  I— 1 , LI) 

WRITE (10, 627) 

FORMAT ( / 5X, ' X  NODE  LOCATIONS' , /) 

WRITE (10, 636)  (X (I) , 1-1, LI) 

WRITE (10, 628) 

FORMAT (/5X, 'Y  NODE  LOCATIONS',/) 

WRITE(IO, 636)  (Y(I),I-1,M1) 

WRITE (10, 629) 

FORMAT (/5X, 'XU  LOCATIONS',/) 

WRITE (10, 636)  (XU (I) , I— 1, LI) 

WRITE (10, 630) 

FORMAT (/5X, '  YV  LOCATIONS',/) 

WRITE (10, 636)  (YV (I) , I— 1,M1) 

FORMAT (8 (IX, F8. 5) ) 

WRITE  (10,  644) 

WRITE (10, 606)  (TKE (LEW, J) ,  J-l.Ml) 

FORMAT (//,5X, 'EAST  WALL  -  TKE  ',/) 

WRITE (10, 645) 

WRITE (10, 606)  (TED (LEW, J),  J-1,M1) 

FORMAT (//,5X, 'EAST  WALL  -  TED',/) 

WRITE (10, 646) 

WRITE (10, 606)  (TKE (LWW, J) ,  J-1,M1) 

FORMAT (//,5X, 'WEST  WALL  -  TKE  ',/) 

WRITE (10, 647) 

WRITE (10, 606)  (TED (LWW, J) ,  J-1,M1) 

FORMAT (//,5X, 'WEST  WALL  -  TED',/) 

WRITE (10, 648) 

WRITE(IO, 606)  (TKE (L2 , J) ,  J-1,M1) 

FORMAT (//, 5X, 'OUTLET  -  TKE  ',/) 

WRITE (10, 649) 

WRITE (10, 606)  (TED (L2 , J) ,  J-1,M1) 

FORMAT (//,5X, 'OUTLET  -  TED  ',/) 


WRITE (10, 676) 

FORMAT (/, 5X, 'TKE  FOR  I-LEW, LWW, 2  J-1,5,10' 

WRITE ( 10, 606)  (TKE (1,1),  I-LEW, LWW, 2) 
WRITE (10, 606)  (TKE (1,5) ,  I-LEW, LWW, 2) 
WRITE (10, 606)  (TKE (1,10),  I-LEW, LWW, 2) 

WRITE (10, 678) 

FORMAT ( / , 5X , ' TED  FOR  I-LEW, LWW, 2  J-1,5,10' 

WRITE (10, 606)  (TED (1,1) ,  I-LEW,LWW) 
WRITEdO,  606)  (TED  (1,5),  I-LEW, LWW) 

WRITE (10, 606)  (TED (1,10),  I-LEW, LWW) 


,/) 


,/) 


WRITE(IO, 680) 

FORMAT (/,5X,'AMUT  FOR  I-LEW,LWW,2  J-1,5,10',/) 
WRITE (10, 606)  (AMUT (1,1),  I-LEW, LWW) 
WRITE(IO, 606)  (AMUT (I, 5) ,  I-LEW, LWW) 
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WRITEdO, 606)  (AMUT  (1, 10) ,  I-LEW,LWW) 

C 

WRITEdO,*)  'TAUN' 

WRITEdO, 606)  (TAUN (I)  ,1-2, L2) 

C 

WRITEdO,*)  'TAUS' 

WRITEdO, 606)  (TAUSd)  ,  I-LSW1,  LSW2 ) 

C 

WRITEdO,*)  '  TAUE' 

WRITE (10, 606)  (TAUE(J) , J-MEW1,MEW2) 

C 

WRITEdO,*)  '  T  AUW ' 

WRITE (IO, 606)  (TAUW(J) , J-MWW1,MWW2) 

C 

TURB  -  TKE (LSW1+10, MNW) 

CALL  YYPLUS (CD25, RHOCON, AMU, DISTN, TURB, YPLUS) 
WRITEdO,*)  '  YPLUSN' 

WRITE (10,606)  YPLUS 
TURB  -  TKE (LSW1+10,MSW) 

CALL  YYPLUS (CD25, RHOCON, AMU, DISTS, TURB, YPLUS) 
WRITE(I0,*)  ' YPLUSS' 

WRITE(I0, 606)  YPLUS 
C 

TURB  -  TKE (LWW, 5) 

CALL  YYPLUS (CD25, RHOCON, AMU, DISTW, TURB, YPLUS) 
WRITEdO,*)  '  YPLUSW' 

WRITEdO,  606)  YPLUS 
TURB  -  TKE (LEW, 5) 

CALL  YYPLUS (CD25, RHOCON, AMU , D I STE , TURB , YP LUS ) 
WRITEdO,*)  '  YPLUSE' 

WRITE (10,606)  YPLUS 
C 

WRITEdO,  656)  LAST,  LI, Ml 

656  FORMAT </5X, 'NO.  ITERATIONS  -' , 

+  15, 2X, 'Ll, Ml  -  ',213,/) 

WRITEdO,  657)  ( I ,  NTIMES  ( I )  ,  1-1 ,  NFP3 ) 

657  FORMAT ( /2X, 'EQN  SWEEPS' , /, 6 (5X, 12,  IX,  12) ) 

IF  ( ITER. EQ. LAST)  LSTOP-.TRUE, 

WRITE  DATA  TO  FILE  17  FOR.  USE  BY  PLOT  PACKAGE 

WRITE (17, 6800)  LI, Ml 
WRITE(17, 6810)  (X (I) , I— 1, LI ) 

WRITE (17, 6810)  (Y (I) , I-1,M1) 

WRITE  (17,  6810)  (XUd)  ,1-1, LI) 

WRITE (17, 6810)  (YV(I) ,1-1, Ml) 

RHO-RHOCON 
DO  4000  J  -  1,M1 
WRITE(17, 6820)  (RHO,I-l,Ll) 

C  WRITEdO,  606)  (CON  (I,  J)  ,  I-LFAB,  L3) 

4000  CONTINUE 

DO  4010  J  -  1,M1 

WRITE(17, 6820)  (U(I, J) , I-1,L1) 

4010  CONTINUE 

DO  4020  J  -  1 , Ml 

WRITE (17,6820)  <V< I, J) , 1-1 ,  LI) 

4020  CONTINUE 

DO  4030  J  -  1,M1 

WRITE (17,6820)  (P (I, J) , I— 1,L1) 

4030  CONTINUE 
6800  FORMAT (IX, 215) 

6810  FORMAT (7 (1X,E10 . 4) ) 

6820  FORMAT (6 (IX, E12. 6) ) 

RETURN 

END 

C  121 


SUBROUTINE  YYPLUS (CD2 5 , RHO , AMU, DIST, TURB, YPLUS ) 
IMPLICIT  REAL *8  (A-H,0-Z) 

606  FORMAT {7 (IX, e9. 3) ) 

YPLUS  -  RHO*CD25*SQRT (TURB) *DIST/AMU 

RETURN 

END 


122 


APPENDIX  F 

User  Routine  for  Afent  Transport 


The  subroutine  USER  to  model  the  transport  of  agent  is  given  here.  This  is  for  the 
case  of  radial  injection  as  is  the  routine  in  Appendix  D.  The  range  of  axial  nodes  for  the 
injector  are  defined  by  LV1  and  LV2  on  page  126.  The  boundary  condition  is  enforced 
following  ENTRY  BOUND  on  page  128  and  the  corresponding  coefficients  in  the  finite 
difference  equations  are  given  appropriate  values  following  ENTRY  GAMSOR  on  page  129. 
Note  that  the  inlet  condition  as  defined  on  page  128  has  an  exponential  variation  in  time. 
The  time  part  has  no  effect  in  the  steady  state  solution  because  the  exponential  term  is 
negligible.  It  comes  into  play  only  in  the  transient  case  and  is  used  to  mimic  the  inlet 
condition  observed  in  experiments.  In  this  case  output  is  controlled  directly  in  subroutine 
USER  and  not  in  a  separate  routine. 

Output  is  given  for  the  case  given  in  Appendix  D  for  the  steady  state  situation. 

A  transient  problem  is  not  given  here.  The  only  difference  is  that  NSTEADY 
would  be  set  equal  to  0,  and  for  this  case  DT  would  be  set  equal  to  1  (sec).  In  this  case, 
of  course,  the  exponential  variation  of  concentration  with  time  at  the  inlet,  as  defined  at 
ENTRY  BOUND,  would  come  into  play. 
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TEST  CHAMBER 
AGENT 


SUBROUTINE  USER 
IMPLICIT  REAL* 8 (A-H, 0-2 ) 

IMPLICIT  INTEGER (I-N) 

PARAMETER  ( ID-151 , JD-151, NFD-7, NFP3-7, MI J-l 51, NREG-10 ) 
LOGICAL  LSOLVE, LBLK, LSTOP 

COMMON/ BLOCK/ F (ID, JD,NFD) , GAM (ID, JD) ,  CON (ID,  JD)  , 

:  AIP(ID, JD) , AIM (ID, JD) ,AJP(ID, JD) , AJM(ID, JD) , AP (ID, JD)  , 

:  X  (ID)  ,  XU  (ID)  ,  XDIF  ( ID)  ,  XCV  (ID)  ,  XCVS  (ID)  , 

:  X ( JD)  , YV ( JD) ,YDIF(JD) , YCV(JD) , YCVS (JD) , 

:  YCVR(JD) , YCVRS (JD) ,ARX(JD) , ARX J ( JD ) , ARX JP ( JD ) , 

:  R ( JD) , RMN ( JD) , SX ( JD) , SXMN ( JD) , XCVI (ID) ,XCVIP(ID) 

COMMON  DU(ID, JD) ,DV(ID, JD) ,  FV ( JD) , FVP ( JD) , 

:  FX(ID) ,FXM(ID) , FY ( JD) , FYM ( JD) , PT (MIJ) , QT (MIJ) 

COMMON/ INDX/NF, NFMIN, NFMAX, NP , NRHO, NGAM, LI ,  L2 , L3, Ml , M2 ,  M3 , 
:  1ST, JST, ITER, LAST, IPREF, JPREF,MODE,NTIMES (NFP3) 

COMMON/LOGI /LSOLVE (NFP3) , LBLK (NFP3) 

COMMON / VARI / T IME , DT, RELAX (NFP3) , RHOCON 

COMMON/ CNTL/LSTOP 

COMMON/ SORC/SMAX, SSUM 

COMMON/ COEF /FLOW, DIFF, ACOF 

COMMON/ INOUT/ IN,  10 

COMMON/PROP/  AMU, Cl , C2, CD, CAPPA, ECON, PRTKE, PRTED, 

:  ALP, BET, ARAT, DIA, EPS, FABTHK, UINLET,  UINJECT, 

:  CD5, CD25, CD75, C2M, TC2M, CDR2 

COMMON/BOX/  WF1 , WF2 , SCFAC, AA, BB, DISTN, DISTS, DISTE, DISTW, 

:  DISTNI, DISTEI, DISTWI 

COMMON/ IBOX/  LB 1 , LB2 , MB2 , LNW1 , LNW2 , LSW1 , LSW2 , MNW, MSW, 

:  MEW1 , MEW2 , MWW1 , MWW2 , LEW, LWW, LF1 , LF2 , MF1 , MF2 , 

:  MNWI, LWWI , LEWI 

DIMENSION  U(ID, JD) , V ( ID, JD) , AGNT (ID, JD) ,AMUT(ID, JD) 

DIMENSION  ICELL (NREG) , IDCRS (NREG) , JCELL (NREG) , JDCRS (NREG)  , 
XL (NREG) , YL (NREG) , ENX (NREG) , ENY (NREG) 

EQUIVALENCE  (F (1, 1, 1) , U (1, 1) ) , (F (1,1,2) ,V(1,1)) , 

:  (F (1,1,7) , AGNT (1,1) ) 

F (I, J, 1)  -  U 
F (I, J,2)  -  V 
F  (I,  J,  7)  -  C 

.  . . PROBLEM  DATA 
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DATA  IN, 10  /15, 16/ 

DATA  NFMIN, NFMAX  /5,7/ 

DATA  NU, NV, NPC, NP, NTKE, NTED, NC  /l, 2, 3,4, 5, 6,7/ 

C 

DATA  LSOLVE  / 6*. false.,  .true./ 

C 

DATA  LBLK  /7*. false./ 

C 

DATA  NTIMES  /7*1/ 

DATA  RELAX  /7*1.0/ 

DATA  LSTOP  /.FALSE./ 

DATA  TINY, BIG, SMALLEST, BIGGEST  /l.E-30,  l.E+30,  l.E-70, 
DATA  ICOUNT  /  0  / 

C 

c  - 

ENTRY  INPUT 

C  - 

C 

READ (IN,*)  NSTEADY 
DT  -  BIG 

IF  (NSTEADY  .NE.  1)  READ (IN,*)  DT 
READ (IN,*)  LAST,  NPRNT 
READ (IN,*)  MODE,  IPREF,  JPREF 

READ ( IN, * )  RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON 
C 

WRITE (10, *)  'NSTEADY' 

WRITE (IO, 6100)  NSTEADY 
WRITE (10,*)  'DT' 

WRITE (10,6102)  DT 

WRITE (IO,*)  'LAST,  NPRNT,  NTIMES (7)' 

WRITE (IO, 6100)  LAST,  NPRNT,  NTIMES (7) 

WRITE (IO,*)  'MODE,  IPREF,  JPREF' 

WRITE (IO, 6100)  MODE,  IPREF,  JPREF 

WRITE (IO,*)  'RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON' 
WRITE (IO,  6102)  RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON 

C 

6100  FORMAT (1515, /) 

6102  FORMAT ( 7 ( IX, E10 . 4 ) , / ) 


MESH  GENERATION  DATA 


read (in, *) 
read(in, *) 
read (in, *) 
read(in, *) 


ireg,  (icell(i),  idcrs(i), 
jreg,  (jcell(j),  jdcrs(j), 
(xl(i),  enx(i),  i-l,ireg) 
<yl(j),  eny(j),  j-1, jreg) 


i«l,ireg) 
j-1, jreg) 


TEST  CELL 


READ (IN,*)  IBOX1, IBOX2, JBOX 


ENTRY  GRID 


LI  NUMBER  OF  U  VELOCITY  POINTS 

Ml  NUMBER  OF  V  VELOCITY  POINTS 


call  meshgen (ireg, icell, idcrs, xl,enx, xu, 11) 
call  meshgen ( jreg, jcell, jdcrs,yl,eny,yv,ml) 

WRITE (IO,*)  '  LI,  Ml' 

WRITE (10,6100)  LI, Ml 
RETURN 
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1 .E+70/ 


ooo  o  o  o  o  ooo  noon  o  o  o  o  o  o 


ENTRY  START 


READ  RESTART  FILE 

OPEN (UNIT-12 , FILE-' RESTART ' , FORM-' UNFORMATTED' ) 


REWIND  12 

READ (12)  LITER 

WRITE (10, *)  '  OLD  ITER  ' 

WRITE (10, 6100)  LITER 
DO  1  K  -  1,6 
DO  1  J  -  1,M1 
DO  1  I  -  1, LI 
READ (12)  F (I,  J, K) 

1  CONTINUE 

write  (io, *)  'READ  F(I,J,K)  FROM  RESTART  FILE;  LAST  I,J,K  ' 
write (io, 6100)  i,j,k 
DO  2  J  =  1,M1 
DO  2  I  -  1,L1 
READ (12)  AMUT (I, J) 

2  CONTINUE 

write (io,*)  'READ  AMUT (I, J)  FROM  RESTART  FILE;  LAST  I,J' 
WRITE (IO, 6100)  I, J, K 

GRID  POINT  RANGES  FOR  IMPERVIOUS  BOX  WALLS 
AND  THE  RANGE  FOR  THE  INJECTION  VELOCITY 

LB1  -  IBOX1  +  1 
LB2  -  IBOX2  +  1 
MB1  -  1 

MB2  -  JBOX  +  1 


RANGE  FOR  GRID  POINTS  NEXT  TO  N,S,E,W  WALLS  RESPECTIVELY 

LNW1 

1 

LNW2 

- 

LI 

MNW 

- 

M2 

LSW1 

- 

LB1 

LSW2 

- 

LB  2 

MSW 

- 

MB2 

+ 

1 

LEW 

- 

LB1 

- 

1 

MEW1 

- 

1 

MEW  2 

- 

MB2 

LWW 

- 

LB2 

+ 

1 

MWW1 

- 

1 

MWW2 

- 

MEW2 

MNW  I 

- 

MB2 

- 

2 

LWWI 

- 

LB1 

+ 

2 

LEWI 

- 

LB  2 

2 

GRID 

POINT 

RANGES  FOR  FABRIC  AND 

THE  WIDTH  OF 

THE  FABRIC  CELLS 

LF1  -  LB1 
LF2  -  LB1  +  1 
MF1  -  1 
MF2  -  MB2  -  1 
WF1  -  XCV(LFl) 

WF2  -  XCV (LF2 ) 

GRID  RANGES  FOR  INJECTION  VELOCITY 

LV1  -  IBOX1  +  5 
LV2  -  IBOX2  -  2 
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ooooooooo  non  ooo  ooooono 


SCALED  COEFFICIENT  FOR  THE  FABRIC 

SCFAC  -  FABTHK/ (WF1  +  WF2 ) 

ETAF  -  ETAF/SCFAC 

OUTER  RADIUS  AND  DISTANCES  FROM  WALLS  TO 
ADJACENT  GRID  POINT 


RMAX  -  Y (Ml ) 

DISTN  -  YDIF(Ml) 

DISTS  -  Y(MSW)  -  YV(MSW) 

DISTE  -  XU (LEW+1)  -  X(LEW) 
DISTW  -  X(LWW)  -  XU(LWW) 
DISTNI  -  Y(MNWI)  -  YV(MNWI) 
DISTEI  -  XU (LEWI+1)  -  X(LEWI) 
DISTWI  -  X(LWWI)  -  XU(LWWI) 


WALL  FACTORS 


WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10, *)  ' 
WRITE (10, 6102) 
WRITE (10,*)  ' 
WRITE (10, 6102) 
WRITE (10, *)  ' 
WRITE (10, 6100) 
WRITE (10,*)  ' 
WRITE (10, 6100) 
WRITE (10, *)  ' 
WRITE (10, 6100) 
WRITE (10, *)  ' 
WRITE (10, 6100) 
WRITE (10,*)  ' 
WRITE (10, 6100) 
WRITE (10, *)  ' 
WRITE (10, 6100) 
WRITE (10,*)  ' 
WRITE (10, 6102) 


AA,  BB,  SCFAC' 

AA,  BB,  SCFAC 

RMAX,  DISTN,  DISTS,  DISTE,  DISTW' 
RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
DISTNI,  DISTEI,  DISTWI' 

DISTNI,  DISTEI,  DISTWI 
IB0X1,  IB0X2,  JBOX' 

IB0X1,  IB0X2,  JBOX 
LB1,  LB2,  MB1,  MB2  ' 

LB1,  LB2,  MB1,  MB2 
LNW1,  LNW2,  MNW,  LSW1,  LSW2,  MSW' 
LNW1,  LNW2 ,  MNW,  LSW1,  LSW2,  MSW 
LEW,  MEW1,  MEW2,  LWW,  MWW1,  MWW2 ' 
LEW,  MEW1,  MEW2,  LWW,  MWW1,  MWW2 
LEWI,  LWWI,  MNWI' 

LEWI,  LWWI,  MNWI 
LF1,  LF2,  MF1,  MF2 ' 

LF1,  LF2,  MF1,  MF2 
WF1,  WF2' 

WF1 ,  WF2 


-  INITIAL  CONDITIONS 

DO  11  J  -  1,M2 
DO  11  I  -  1, LI 
AGNT ( I, J)  -  0.0 

11  CONTINUE 

DO  12  J  -  1, Ml 
AGNT (1, J)  -  1.0 

12  CONTINUE 
RETURN 


ENTRY  DENSE 


ENTRY  BOUND 


AXIS  AND  OUTER  WALL 

DO  300  I  -  2, LI 

AGNT (1,1)  -  AGNT (1,2) 

AGNT ( I , Ml )  -  AGNT ( I , M2 ) 
300  CONTINUE 
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c 

DO  301  I  -  LV1,LV2 
AGNT (1,1)  -  0.0 
AGNT (1,2)  -  0.0 

301  CONTINUE 
C 

C 

C  INLET  AND  OUTLET 

C 

DO  302  J-l , M2 

AGNT  ( 1 ,  J )  -  1.0M1.0  -  exp  (-TIME/ 100. )  ) 

AGNT (LI, J)  -  AGNT (L2 , J) 

302  CONTINUE 
C 

C  OUTER  AND  BACK  WALLS  OF  CHAMBER 

C 

DO  304  I  -  LB1, LB2 

AGNT (I,MB2+1)  -  AGNT (I,MB2+2) 

304  CONTINUE 

C 

DO  306  J  -  1,MB2 

AGNT (LB2+1, J)  -  AGNT (LB2+2 , J) 

306  CONTINUE 

C 

C  INTERIOR  WALLS 

C 

DO  310  I  -  LWW1, LEWI 

AGNT (I,MNWI)  -  AGNT ( I, MNWI-1 ) 

310  CONTINUE 

C 

DO  312  J  -  1 , MNWI 

AGNT (LEWI, J)  -  AGNT (LEWI-1, J) 

312  CONTINUE 

C 

RETURN 

C 

C  - 

ENTRY  GRADIENT 

c.  - 

RETURN 

C 

C  - 

ENTRY  GAMSOR 

C  - 

C 

C  S  -  SC  +  SP*U  SO,  AP  -  SP  &  CON  -  SC 

C 

GO  TO  (499, 499, 499, 499, 499, 499, 400), NF 
C 

C  - C  -  CONCENTRATION - 

C 

400  CONTINUE 
C 

DO  405  J  -  1, Ml 
DO  405  I  •*  1,  LI 

GAM (1,0)  -  RHOCON*ETA  +  AMUT (I, J) /PRCON 

405  CONTINUE 
DO  406  I  -  1 , LI 

GAM  (I,  1)  -  0.0 

406  CONTINUE 
DO  407  J  -  1,M1 

GAM (LI, J)  -  0.0 

407  CONTINUE 

C  BOX  WALLS 

DO  408  J  -  1,MB2 

AP (LB2 , J)  -  -BIG 
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GAM(LB2,J)  -  0.0 

GAM (LB2+1 , J)  -  0.0 

GAM (LB2-1, J)  -  0.0 

408 

CONTINUE 

DO  409  I  -  LB1 , LB2 

AP ( I , MB2 )  -  -BIG 

GAM (I, MB2)  -  0.0 

GAM ( I , MB2+1 )  -  0.0 

GAM(I,MB2-1)  -  0.0 

409 

CONTINUE 

C 

C 

BOX 

DO  410  J  -  1 , MNWI 

DO  410  I  -  LWWI, LEWI 

GAM (I, J)  -  RHOCON*ETA 

410 

CONTINUE 

' 

C 

FABRIC 

DO  411  J  -  1, MF2 

DO  411  I  -  LF1, LF2 

GAM ( I , J )  -  RHOCON*ETAF 

411 

CONTINUE 

C 

INJECTOR 

DO  412  J  -  1,2 

DO  412  I  -  LV1, LV2 

CON (I, J)  -  0.0 

AP  ( I ,  J)  -  -BIG 

412 

CONTINUE 

499 

C 

RETURN 

C 

ENTRY  WALL 

C 

C 

C 

C 

AJP  -  An,  AJM  -  As,  AIP  -  Ae,  AIM  -  Aw 

RETURN 

C 

ENTRY  OUTPUT 

C 

C 

ICOUNT  -  ICOUNT  +  1 

C 

IF  ( ITER. NE. LAST  .AND.  NPRNT.LE.l)  RETURN 

500 

IF  (ITER  .EQ.  LAST)  GOTO  500 

IF  (ICOUNT  .NE.  NPRNT )  RETURN 

WRITE (IO, 612)  TIME 

612 

FORMAT (//5X, 'TIME  -  ',E10.4,/) 

WRITE (IO, 614) 

614 

FORMAT (/5X, 'EAST  WALL  ',/) 

WRITE (IO, 606)  ( AGNT (LEW, J) , J-1,M1) 

.. 

WRITE (IO, 616) 

616 

FORMAT (/5X, 'WEST  WALL  ',/) 

WRITE (IO, 606)  (AGNT (LWW+1, J) , J«1,M1) 

WRITE (10,618) 

618 

FORMAT (/SX, 'OUTLET  ',/) 

WRITE (IO, 606)  (AGNT (L1,J) , J-1,M1) 

WRITE (10,620) 

620 

FORMAT ( / , 5X , ' I  -  LB2' , / ) 

WRITE(IO, 606)  (AGNT (LB2 , J) ,  J-1,M1) 

WRITE (IO, 622) 

622 

C 

FORMAT (/,5X,  'FOR  I-LEW, LWW+1  J-1,5,10'  /) 

LWP  -  LWW  +  1  '  '  ,f) 

WRITE ( IO, 606)  (AGNT(I,1),  I-LEW, LWP) 

WRITE (IO, 606)  (AGNT (I, 5),  I-LEW,  LWP) 

WRITE (IO, 606)  (AGNT (I, 10) ,  I-LEW,LWP) 
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WRITE (10, 623) 

623  FORMAT (/,5X,' FOR  I  -  54,64,70  J  -  1,MB2',/) 
WRITE (10,606)  (AGNT ( 54 , J) ,  J-1,MB2) 

WRITE (10, 606)  (AGNT (64 , J) ,  J-1,MB2) 

WRITE (10, 606)  (AGNT (70, J) ,  J-1,MB2) 

ICOUNT  -  0 

IF  (ITER  .NE.  LAST)  RETURN 
WRITE  (10,  656)  LAST,  LI,  Ml 

656  FORMAT {/5X, 'NO.  ITERATIONS  -' , 

+  15, 2X, 'Ll, Ml  -  ',213,/) 

WRITE(IO, 657) (I,NTIMES (I) , I-1,NFP3) 

657  FORMAT </2X, 'EQN  SWEEPS' , /, 6 (5X, 12, IX, 12) ) 

IF  ( ITER. EQ. LAST)  LSTOP-.TRUE. 

WRITE  DATA  TO  FILE  17  FOR  USE  BY  PLOT  PACKAGE 

WRITE (17, 6800)  LI, Ml 
WRITE (17, 6800)  LI, Ml 
WRITE (17, 6810)  (X (I) , 1-1,  LI ) 

WRITE (17, 6810)  ( Y (I ) , 1-1 , Ml ) 

DO  4000  J  -  1,M1 
WRITE(17, 606)  (AGNT (I, J) , I-1,L1) 

4000  CONTINUE 

606  FORMAT (7 (IX, e9. 3) ) 

6800  FORMAT (IX, 215) 

6810  FORMAT (7 (1X,E10.4)  ) 

C 

RETURN 

END 

C 

subroutine  meshgen (nreg, ncell, ndcrs,el, en, x, nxs) 
implicit  real*8  (a-h,o-z) 

dimension  ncell (1) , ndcrs (1) ,el (1) , en (1) , x (1) 
c 

x(l)  -  0.0 
x (2 )  -  0.0 
mo  -  2 

mf  -  ncell (1)  +  mo 
nxs  -  mo 
c 

do  1  n  -  l,nreg 

mf  -  ncell (n)  +  mo 
x (mf )  -  x(mo)  +  el(n) 
pwr  -  1.0/en(n) 
nx  -  ncell (n) 
nsgn  -  ndcrs (n) 
nxs  -  nxs  +  nx 

call  coord(pwr, nx, nsgn, mo, mf , x) 
mo  -  mf 

mf  -  ncell (n+1)  +  mo 
1  continue 
return 
end 
c 

subroutine  coord (pwr, nx, nsgn, mo, mf , x) 
implicit  real*8  (a-h,o-z) 
dimension  x(l),si(100) 
c 

dsi  -  1.0 /nx 
si (1)  -  0.0 
si(nx+l)  -  i.o 
do  1  i  -  2,nx 

si(i)  -  si(i-l)  +  dsi 
1  continue 
do  2  i  -  l,nx 
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2 


3 


if  (nsgn  .ge.  0)  then 
si(i+l)  -  si(i+l)**pwr 
else 

si(i+l)  -  1.0  -  (1.0  -  si (i+1 ) ) **pwr 
endif 
continue 
xo  -  x(mo) 
xf  -  x(mf) 
nxl  -  nx  +  1 
do  3  i  -  l,nxl 
ix  -  mo+i-1 

x(ix)  -  (xf  -  xo)*si(i)  +  xo 
continue 
return 
end 
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NSTEADY 

1 

DT 

0. 1000E+31 

LAST,  NPRNT,  NTIMES(7) 

1000  1000  1 

MODE,  IPREF,  JPREF 
2  120  2 

RHOCON,  AMU,  ETA,  ETAF,  FABTHK,  PRCON 
0 . 1062E-06  0 . 2750E-08  0.4400  0.1200E-01  0.2680E-01  0.7000E+00 

LI,  Ml 
122  32 

LI,  Ml 
122  32 

COMPUTATION  FOR  AXISYMMETRIC  SITUATION 
**************************************** 


OLD  ITER 
1000 

READ  F (I, J, K)  FROM  RESTART  FILE;  LAST  I,J,K 
123  33  7 

READ  AMUT ( I , J )  FROM  RESTART  FILE;  LAST  I,J 
123  33  7 

AA,  BB,  SCFAC 

0 . 0000E+00  0 . OOOOE+OO  0.8933E-01 
RMAX,  DISTN,  DISTS,  DISTE,  DISTW 
0 . 4000E+01  0.3207E-01  0.3207E-01  0.1206E+00  0.1206E+00 
DISTNI,  DISTEI,  DISTWI 
0 . 4333E-01  0 . 7 500E-01  0.7500E-01 


IBOX1 

,  IBOX2, 

JBOX 

51 

70 

10 

LB1, 

LB2, 

MB1 , 

MB  2 

52 

71 

1 

11 

LNW1, 

LNW2 

,  MNW,  LSW1 

,  LSW2,  MSW 

1 

122 

31 

52 

71  12 

LEW, 

MEW1 , 

MEW2 ,  LWW, 

MWW1,  MWW2 

51 

1 

11 

72 

1  11 

LEWI, 

LWWI 

,  MNW  I 

69 

54 

9 

LF1 , 

LF2, 

MF1 , 

MF2 

52 

53 

1 

10 

WF1 , 

WF2 

0.1500E+00  0 . 1500E+00 
TIME  -  0 . 9990E+33 


EAST  WALL 


0 . 100E+01  0 . 100E+01 
0 . 929E+00  0.929E+00 
0 . 966E+00  0 . 981E+00 
0 . 100E+01  0 . 100E+01 
0 . 100E+01  0 . 100E+01 


0 . 100E+01 
0 . 859E+00 
0. 991E+00 
0 . 100E+01 
0 . 100E+01 


0 . 100E+01 
0 . 884E+00 
0 . 996E+00 
0 . 100E+01 
0. 100E+01 


0 . 999E+00 
0 . 903E+00 
0. 999E+00 
0 . 100E+01 


0 . 990E+00  0 . 965E+00 
0.924E+00  0 . 946E+00 
0 . 100E+01  0 . 100E+01 
0 . 100E+01  0 . 100E+01 


WEST  WALL 


0 . 928E+00  0 . 928E+00 
0 . 926E+00  0 . 927E+00 
0.946E+00  0 . 960E+00 
0 . 100E+01  0 . 100E+01 
0 . 100E+01  0 . 100E+01 


0. 927E+00 
0 . 927E+00 
0 . 973E+00 
0 . 100E+01 
0 . 100E+01 


0. 927E+00 
0 . 923E+00 
0 . 985E+00 
0 . 100E+01 
0 . 100E+01 


0 . 926E+00 
0.911E+00 
0 . 993E+00 
0 . 100E+01 


0 . 926E+00 
0 . 922E+00 
0.997E+00 
0 . 100E+01 


0 . 926E+00 
0. 933E+00 
0. 100E+01 
0.100E+01 


OUTLET 
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0 . 935E+00  0 . 935E+00  0.940E+00  0.946E+00  0.951E+00  0.957E+00  0.963E+00 

0 . 968E+00  0.973E+00  0.978E+00  0.982E+00  0.985E+00  0.988E+00  0.990E+00 

0 . 993E+00  0 . 995E+00  0.996E+00  0.998E+00  0.999E+00  0.999E+00  O.IOOE+Ol 

0 . 100E+01  0 . 100E+01  0 . 100E+01  0.100E+01  O.IOOE+Ol  0.100E+01  O.IOOE+Ol 

0 . 100E+01  0 . 100E+01  0 . 100E+01  0.100E+01 

I  -  LB  2 

0 . OOOE+OO  0 . OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  0.000E+00 

0 . OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  0.919E+00  0.919E+00  0.929E+00 

0 . 943E+00  0 . 958E+00  0.972E+00  0.983E+00  0.992E+00  0.997E+00  O.IOOE+Ol 

0 . lOOE+Ol  0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol 

0 . lOOE+Ol  0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol 

FOR  I-LEW, LWW+1  J-1,5,10 

0 . lOOE+Ol  0 . lOOE+Ol  0 . 999E+00  0.508E+00  0.276E+00  O.OOOE+OO  O.OOOE+OO 

O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO 

O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  O.OOOE+OO  0.181E-04  O.OOOE+OO 

0 . 928E+00  0 . 928E+00 

0 . 999E+00  0 . 663E+00  0.523E+00  0.174E-01  0.114E-02  0.319E-03  0.355E-03 

0 . 471E-03  0 . 410E-03  0.307E-03  0.193E-03  0.617E-04  0.663E-06  0.112E-05 

0 . 156E-05  0 . 190E-05  0.244E-05  0.510E-05  0.510E-05  0.181E-04  O.OOOE+OO 

0 . 926E+00  0 . 926E+00 

0 . 859E+00  0 . 353E-02  0.102E-02  0.133E-03  0.133E-03  0.133E-03  0.133E-03 

0 . 133E-03  0 . 133E-03  0.125E-03  0.103E-03  0.624E-04  0.351E-04  0.279E-04 

0 . 257E-04  0 . 257E-04  0.257E-04  0.257E-04  0.257E-04  0.257E-04  O.OOOE+OO 

0 . 927E+00  0 . 927E+00 

FOR  I  -  54,64,70  J  -  1,MB2 

0 . 508E+00  0 . 508E+00  0.205E+00  0.754E-01  0.174E-01  0.166E-02  0.213E-03 
0 . 182E-03  0.182E-03  0.133E-03  O.OOOE+OO 

O.OOOE+OO  0 . QOOE+QQ  0.668E-06  0.100E-05  0.112E-05  0.112E-05  0.129E-05 
0 . 280E-05  0 . 280E-05  0.279E-04  O.OOOE+OO 

0 . 181E-04  0 . 181E-04  0.181E-04  0.181E-04  0.181E-04  0.182E-04  0.187E-04 
0 . 198E-04  0 . 220E-04  0.257E-04  O.OOOE+OO 


TIME  -  0 . 1000E+34 


EAST  WALL 

0 . lOOE+Ol  0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol  0.999E+00  0.990E+00  0.965E+00 

0 . 929E+00  0 . 929E+00  0.859E+00  0.884E+00  0.903E+00  0.924E+00  0.946E+00 

0 . 966E+00  0 . 981E+00  0.991E+00  0.996E+00  0.999E+00  O.IOOE+Ol  O.IOOE+Ol 

0 . lOOE+Ol  0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol 

0 . lOOE+Ol  0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol 

WEST  WALL 

0 . 928E+00  0 . 928E+00  0.927E+00  0.927E+00  0.926E+00  0.926E+00  0.926E+00 

0 . 926E+00  0 . 927E+00  0.927E+00  0.923E+00  0.911E+00  0.922E+00  0.933E+00 

0 . 946E+00  0 . 960E+00  0.973E+00  0.985E+00  0.993E+00  0.997E+00  O.IOOE+Ol 

0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol 

0 . lOOE+Ol  0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol 

OUTLET 

0 . 935E+00  0 . 935E+00  0.940E+00  0.946E+00  0.951E+00  0.957E+00  0.963E+00 

0 . 968E+00  0 . 973E+00  0.978E+00  0.982E+00  0.985E+00  0.988E+00  0.990E+00 

0.993E+00  0.995E+00  0.996E+00  0.998E+00  0.999E+00  0.999E+00  O.IOOE+Ol 

O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol  O.IOOE+Ol 

0 . lOOE+Ol  0 . lOOE+Ol  0 . lOOE+Ol  O.IOOE+Ol 
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I  -  LB  2 


0 . 00QE+Q0 

0 . 000E+00 

0 . 000E+00 

0 . 000E+00 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . OOOE+OO 

0 . 000E+00 

0 . 000E+00 

0 . 000E+00 

0 . 919E+00 

0. 919E+00 

0 . 929E+00 

0. 943E+00 

0 . 958E+00 

0 . 972E+00 

0 . 983E+00 

0 . 992E+00 

0 . 997E+00 

0 . 100E+01 

0 . 100E+01 

0 . 100E+01 

0 . 100E+0 1 

0 . 10QE+Q1 

0 . 100E+01 

0 . 100E+01 

0 . 100E+01 

0. 100E+01 

0 . 100E+01 

0 . 100E+01 

0 . 100E+01 

FOR  I- 

■LEW, LWW+1 

J-l, 5, 10 

0 . 100E+01 

0 . 100E+01 

0 . 999E+00 

0 . 508E+00 

0 . 276E+00 

O.OOOE+OO 

O.OOOE+OO 

0 . 000E+00 

0 . 000E+00 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0 . 000E+00 

0 . 000E+00 

O.OOOE+OO 

O.OOOE+OO 

O.OOOE+OO 

0.181E-04 

O.OOOE+OO 

0 . 928E+00 

0 . 928E+00 

0 . 999E+00 

0 . 663E+00 

0 . 523E+00 

0 . 174E-01 

0 . 114E-02 

0 . 319E-03 

0 . 355E-03 

0 . 471E-03 

0 . 410E-03 

0 . 307E-03 

0 . 193E-03 

0 . 617E-04 

0 . 663E-06 

0.112E-05 

0.156E-05 

0 . 190E-05 

0 . 244E-05 

0 . 510E-05 

0 . 510E-05 

0 . 181E-04 

O.OOOE+OO 

0 . 926E+00 

0 . 926E+00 

0 . 859E+00 

0 . 353E-02 

0 . 102E-02 

0 . 133E-03 

0 . 133E-03 

0 . 133E-03 

0 . 133E-03 

0.133E-03 

0 . 133E-03 

0 . 125E-03 

0 . 103E-03 

0 . 624E-04 

0 . 351E-04 

0 . 279E-04 

0.257E-04 

0.257E-04 

0 . 257E-04 

0 . 257E-04 

0 . 257E-04 

0 . 257E-04 

O.OOOE+OO 

0 . 927E+00 

0 . 927E+00 

FOR  I 

-  54,64, 

70  J-l 

,MB2 

0 . 508E+00 

0.508E+00 

0 . 205E+00 

0 . 754E-01 

0 . 174E-01 

0.166E-02 

0 . 213E-03 

0 . 182E-03 

0 . 182E-03 

0 . 133E-03 

O.OOOE+OO 

0 . 000E+00 

0 . 000E+00 

0 . 668E-06 

0 . 100E-05 

0 . 112E-05 

0 . 112E-05 

0 . 129E-05 

0 . 280E-05 

0.280E-05 

0.279E-04 

O.OOOE+OO 

0 . 181E-04 

0 . 181E-04 

0 . 181E-04 

0 . 181E-04 

0 . 181E-04 

0 . 182E-04 

0 . 187E-04 

0 . 198E-04 

0 . 220E-04 

0 . 257E-04 

O.OOOE+OO 

NO.  ITERATIONS  -  1000  LI, Ml  -  122  32 


EQN  SWEEPS 

11  21  31  41  51  61 

7  1 


134 


APPENDIX  G 
Vector  Plotting  Program 


The  vector  plotting  routine  that  follows  was  developed  specifically  for  use  with  the 
code  used  to  solve  the  flow  field.  It  uses  the  plot  file  generated  by  the  user  routines  for  the 
majority  of  the  input.  The  only  other  input  required  is  prompted  for  at  the  beginning  of  a 
run.  The  prompts  are  self  explanatory.  Since  the  u  and  v  velocity  components  are 
computed  at  different  locations  they  are  interpolated  to  the  main  grid  points  before  the 
vectors  for  plotting  are  defined.  This  is  accomplished  in  subroutine  SPEED.  The  arrow 
heads  for  the  vectors  are  constructed  in  subroutine  ARROW.  The  code  uses  SUNCORE 
graphics  routines  which  are  no  longer  supported  by  SUN  Microsystems.  However,  these 
routines  are  still  available  in  "old"  libraries.  The  code  can  be  readily  converted  to  another 
graphics  system  if  required. 
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c 

c  vector  plots  using  suncore 
c 

c  input  is  either  prompted  from  the  screen  and  entered  from  the 

c  keyboard  or  it  is  from  the  plot  data  output  file  from  the 

c  "'odel .  UNIT  15  is  used  to  read  the  plo«-  datafile.  The  name  of 

c  the  plot  datafile  is  prompted  for.  Prompted  data  is  self  explanatory 

c 

include  "/usr/include/f 77/usercore77 .h" 
c 

parameter  (id  -  500,  jd  -  500) 
integer  vsurf (VWSURFSIZE) 
integer  pixwindd 
external  pixwindd 

integer  InitializeCore,  InitializeVwsurf ,  SelectVwsurf 
c 

dimension  x(id) ,y ( jd) ,xg(id) ,yg( jd) ,u(id, jd) ,v(id, jd) , 

:  ug(id, jd) ,vg(id, jd) 

c 

c  x  &  y  are  input  grid  points 
c  xg  &  yg  are  shifted  and  scaled  grid  points 
c  u  &  v  are  cell  face  velocities 
c  ug  &  vg  are  grid  point  velocities 

c 

character*6  pfile 
character*60  title 
character*60  subtitle 
c 

data  vsurf  /VWSURFSIZE*0/ 
c 

write (*,60) 

60  format (2x, ' enter  input  datafile  name  (usually  PLOT15) ,  format  a6' ) 
read(*,61)  pfile 

61  format (a6) 
write (*,62) 

62  format (2x, ' enter  title,  format  a60' ) 
read(*,64)  title 

write (* , 63) 

63  format (2x, ' enter  subtitle,  format  a60') 
read(*,64)  subtitle 

64  format (a60) 
write (*, 66) 

66  format (2x, ' enter  NSYMX,  NSYMY  :  -  0  nonsymmetry,  -  1  symmetry') 
read(*,*)  nsymx,  nsymy 
write (*,68) 

68  format (2 x, ' enter  reduction  factor  for  velocities  -  e.g.  6.0') 
read(*,*)  vscale 

write (*, 69) 

69  format (/2x, 'enter  INCR  -  plotting  increment  ',/, 

:  2x,'e.g.  1  plots  vectors  at  every  point,  2  at  every  other') 
read(*,*)  incr 
write (*,70) 

70  format (/2x, 'do  you  want  subregion  plotting  ?',/, 

:  2x,' enter  1  for  yes  or  0  for  no.  if  you  enter  1',/, 

:  2x,'on  the  next  line  enter  the  indicies  for  the  region',/, 

:  2x, ' to  be  plotted  IFIRST,  I LAST,  JFIRST,  JLAST' ) 

read(*,*)  imag 

if  (imag.eq.l)  read(*,*)  if st, ilst, jf st, jlst 


c 

c 

c 


vsurf (DDINDEX)  -  loc (pixwindd) 

if  (InitializeCore (BASIC,  NOINPUT,  TWOD)  .ne.  0)  call  exit(l) 
if  (InitializeVwsurf (vsurf ,  FALSE)  .ne.  0)  call  exit (2) 
if  (SelectVwsurf (vsurf )  .ne.  0)  call  exit (3) 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 

c 

c 

c 


c 


c 


c 

c 


open (unit-15, f ile-pf ile, status-' old' ) 

since  SUNCORE  assumes  a  window  y:x  -  3:4 
the  program  assumes  a  window  from  0.0  to  16.0  in 
the  horizontal  direction  and  from  0.0  to  12.0  in 
the  vertical  direction.  Plotting  takes  place  in 
an  11.0  by  11.0  region  starting  at  4.0,  0.5.  The 
remaining  space  can  be  used  for  textual  information. 

setup  window  coordinates 

xlft  -  0.0 
xrgt  -  16.0 
ybot  -  0.0 
ytop  -  12.0 
xo  -  4.0 
yo  -  0.5 
size  -  11.0 

call  input (id, jd,nx,ny,x,y,u,v,pfile> 
call  SetNdcSpace2 (1 . 0,  0.75) 

use  the  following  call  to  scale  horiz  and  vertical  directions 
to  compensate  for  the  difference  in  the  number  of  pixels  in 
each  direction 

call  SetViewport2 (0 .0, 1 .0,  0.0,0.75) 
call  SetWindow(xlft,  xrgt,  ybot,  ytop) 
call  CreateTempSeg ( ) 

call  coords (nx, ny, x, y, xo, yo, nsymx, nsymy, size, xg, yg, 
imag, if st, ilst, jf st, jlst) 
call  speed(id, jd, nx,ny,u,v,ug,vg, vmax) 

call  velplt (id, jd, xg, yg, ug, vg, xo, yo, nsymx, nsymy, size, vmax, 
vscale, incr , ifst, ilst, jf st, jlst) 


xt  -  0.5 
yt  -  11.75 

call  label (xt,yt, titled: 60) ) 
yt  -  11.55 

call  label(xt,yt, subtitle (1 : 60 ) ) 


close  and  exit 

call  CloseTempSeg ( ) 
call  sleep(60) 
call  DeselectVwsurf (vsurf ) 
call  TerminateCore ( ) 
end 

subroutine  input (id, jd,nx,ny,x,y,u,v,pfiie) 
dimension  x(l) ,y(l) ,u(id, jd) ,v(id, jd) 
characters  pfile 

open (unit-15, f ile-pf ile, status-' old' ) 

read(15,*)  nx,ny 
read(15, *)  <x(i),  i-l,nx) 
read(15, *)  (y(j),  j-l,ny) 

note  that  xu,  yv  &  rho  are  not  used  but  must  be  read 
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c 

read(15,*)  (xu,  i«l,nx) 
read(15,*)  (yv,  j«l,ny) 
do  1  j  -  l,ny 

read(15,*)  (rho,  i  -  l,nx) 

1  continue 

do  2  j  -  l,ny 

read(15,*)  (u(i,j),  i  -  l,nx) 

2  continue 

do  3  j  -  1 ,  ny 

read (15, *)  (v(i,j),  i  -  l,nx) 

3  continue 
c 

close (unit-15,  status^' keep' ) 
return 
end 
c 

subroutine  coords (nx, ny, x,y, xo, yo, nsymx, nsymy, size, xg,yq, 

:  imag, if s, ils, jf s, jls) 

dimension  x (1) ,  y (1) , xg (1) , yg (1) 
c 

c  xo  &  yo  origin 

c  plot  window  is  size  by  size 

c 

if  (imag.eq.O)  then 
ifs  -  1 
ils  -  nx 
jf s  -  1 
jls  -  ny 
endif 

sea  -  x(ils)  -  x(ifs) 
scay  -  y ( jls)  -  y(jfs) 
if  (nsymx. eq.l)  sea  -  2.0*sca 
if  (nsymy. eq.l)  scay  -  2.0*scay 
if  (sea. It. scay)  sea  -  scay 
if  (nsymx. eq.l)  xo  -  xo  +  size/2.0 
if  (nsymy. eq.l)  yo  -  yo  +  size/2.0 
do  10  i  -  l,nx 

xg(i)  -  (x(i)  -  x (if s) ) *size/sca  +  xo 

10  continue 

do  11  j  -  l,ny 

yg(j)  “  (y(j)  -  y(jfs) }*size/sca  +  yo 

11  continue 
return 
end 

c 

subroutine  speed(id, jd, nx, ny, u, v, ug, vg, vmax) 

dimension  u (id, jd) , v(id, jd) ,ug (id, jd) ,vg(id, jd) 
c 

c  finds  velocity  components  at  the  grid  points  by  interpolation 
c  of  cell  face  components,  the  grid  points  lie  half  way 

c  between  the  cell  faces,  only  the  interior  points  are  actually 

c  used 

c 

c  corner  points 

c 

ug(l, 1)  -  u (2, 1) 
vg ( 1 , 1 )  -  v (1, 2) 
ug(nx,l)  -  u(nx,l) 
vg(nx, 1)  -  v (nx, 2) 
ug(l, ny)  -  u(2,ny) 
vg ( 1 , ny )  -  v(l,ny) 
ug(nx,ny)  -  u(nx,ny) 
vg (nx, ny)  -  v(nx,ny) 
c 

nl  -  nx  -  1 
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ml  *•  ny  -  1 

c 

c  bottom  &  top  points 

c 

do  2  i  -  2 , nl 

ug(i,l)  -  (u (i, 1)  +  u(i+l,l))/2.0 
vg (i, 1)  -  v (i, 2) 

ug(i, ny)  -  (u(i,ny)  +  u (i+1, ny) ) /2 . 0 
vg (i, ny)  -  v (i, ny) 

2  continue 
c 

c  left  &  right  points 

c 

do  4  j  -  2, ml 
ugd,  j)  -  u  (2 ,  j) 

vg(l,j)  -  (v(l,j)  +  v(l, j+l))/2.0 
ug (nx, j)  -  u (nx, j) 

vg (nx,  j)  -  (v  (nx,  j)  +  v  (nx,  j+1)  ) /2 . 0 
4  continue 
c 

c  interior  points 

•  c 

do  6  i  -  2,nl 

do  6  j  -  2, ml 

ug(i,j)  -  (u (i, j)  +  u(i+l, j))/2.0 

vg(i-j)  -  <v(i,j)  +  v(i, j+l))/2.0 
6  continue 
c 

c  max  speed 

c 

vmax  -  -1 . 0e30 
nxl  -  nx-1 
nyl  -  ny-1 
do  8  i  -  2, nxl 

do  8  j  -  2, nyl 

spd  -  sqrt (ug(i, j) **2  +  vg(i,j)**2) 
if  (vmax  .It.  spd)  vntax-spd 
8  continue 
return 
end 
c 

subroutine  velplt (id, jd,xg, yg,ug, vg, xo, yo, nsymx, nsymy, 

:  size, vmax, vscale, incr , if s, ils, jf s, jls) 

c  dimension  xg (1) , yg (l) , ug (id, jd) , vg(id, jd) , xx (5) , yy (5) 

c  plot  computation  domain 
c 

xx ( 1 )  -  xg (if s) 
xx (2)  -  xg (ils) 

if  (nsymx. eq.l)  xx(l)  -  2.0*xo  -  xx(2) 

xx (3)  -  xx (2) 

xx (4)  -  xx ( 1 ) 

xx (5)  -  xx ( 1 ) 

yy (i)  -  yg(jfs) 

yy (4)  -  yg(jls) 

if  (nsymy. eq.l)  yy(i)  .  2.0*yo  -  yy(4) 
yy(2)  -  yy ( 1) 
yy(3)  -  yy (4) 
yy<5)  -  yy ( 1) 
n5  -  5 
c 

call  moveabs2 (xx(l) ,yy (l) ) 
call  polylineabs2 (xx,yy,n5) 


c 

c 

c 


plot  frame 


139 


xo  -  size/2. 


c 


c 

c 

c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


XX  (1) 

**  XO 

if  (nsymx. eq. 

i) 

XX(1) 

xx  (2) 

-  XX (1) 

+ 

size 

xx  (3) 

-  xx (2) 

xx  (4) 

-  xx ( 1 ) 

xx  (5) 

-  XX (1) 

yyd) 

-  yo 

if  (nsymy. eq. 

i) 

yyd) 

yy  (2) 

-  yyd) 

yy  (3) 

-  yyd) 

+ 

size 

yy  (4) 

-  yy (3) 

yy<5) 

-  yyd) 

yo  -  size/2. 


call  moveabs2 (xx(l) ,yy(l) ) 
call  polylineabs2 (xx, yy,n5) 

plot  vectors 


nxl  -  if s  +  1 

nyl  -  jfs  +  1 

nx2  -  ils  -  1 

ny2  «  j  Is  -  1 

do  10  i  -  nxl,nx2,incr 

do  10  j  -  nyl,ny2,incr 

xx(l)  -  xg (i) 

yyd)  -  yg(j) 

xx(2)  -  xx (1)  +  ug (i, j) / (vmax*vscale) 
yy(2)  -  yyd)  +  vg(i,  j)  /  (vmax*vscale) 
call  arrow  (xx, yy, xo, yo, nsymx, nsymy,  size) 
10  continue 
return 
end 


subroutine  arrow(xx,yy,xo,yo, nsymx, nsymy, size) 
dimension  xx(l) ,yy(l) , xa (3) ,ya (3) , xs (2) ,ys(2), 
:  xsa  (3) ,  ysa  (3) 


yl  * 

* 

★ 

★  1 
★ 

★  * 

s  *  *  sy 

*  * 

*  angle  * 

sx 


xl 


Xl  &  yl  local  axes  at  the  arrowhead 

xa  &  ya  are  arrowhead  coords  in  the  xg  yg  system 

xs,  ys  are  used  for  symmetry  plots  of  the  vector 
xsa,  ysa  are  used  for  symmetry  plots  of  the  arrowhead 
sx  &  sy  are  coords  of  tip  relative  to  the  tail 

cs  &  sn  are  the  cosine  and  sine  of  the  angle 

pi8  -  3.14158/8.0 
sx  -  xx (2)  -  xx (1 ) 
sy  -  yy  (2 )  -  yy(l) 
s  -  sqrt (sx**2  +  sy**2) 
if  (s  .It.  10.e-10)  return 
sa  -  s/5, 
xl  -  -sa*cos(pi8) 
yl  -  sa*sin(pi8) 
cs  -  sx/s 
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c 

c 

c 


c 

c 

c 


c 


c 

c 

c 


c 


c 

c 

c 


c 


c 

c 

c 


c 

c 


c 


sn  -  sy/s 


arrowhead  coordinates 


xa(l)  -  xx (2) 
ya  (1)  -  yy  (2) 
xa(2)  -  xx (2) 
ya(2)  -  yy (2) 
xa (3)  -  xx (2) 
ya(3)  -  yy (2) 


+  xl*cs 
+  xl*sn 


+  xl*cs 
+  xl*sn 


-  yl*sn 
+  yl*cs 


+  yl*sn 
-  yl*cs 


draw  arrow 


n2  -  2 
n3  -  3 

call  moveabs2 (xx(l) ,yy (l) ) 
call  polylineabs2 (xx, yy, n2) 
call  moveabs2 (xa(l) ,ya(l) ) 
call  polylineabs2 (xa, ya,n3) 

if  (nsymx.eq.l)  then 
xs(l)  -  2 . *xo  -  xx ( 1 ) 
xs(2)  -  2.*xo  -  xx(2) 
xsa(l)  -  2 . *xo  -  xa (1) 
xsa  (2)  -  xs (2) 

xsa  (3)  -  2  .  *xo  -  xa  (3) 


draw  arrow 


call  moveabs2 (xs (1) ,yy (l) > 
call  polylineabs2 (xs,  yy,  n2) 
call  moveabs2 (xsa (1) , ya (1) ) 
call  polylineabs2 (xsa, ya,  n3) 

endif 

if  (nsymy.eq.l)  then 
ys(l)  -  2 . *yo  -  yy(l) 
ys(2)  -  2 . *yo  -  yy (2) 
ysa(l)  *»  2.*yo  -  ya(l) 
ysa  (2)  -  ys  (2 ) 
ysa(3)  -  2.*yo  -  ya(3) 

draw  arrow 


call  moveabs2 (xx (1) , ys (i) ) 
call  polylineabs2 (xx, ys,n2) 
call  moveabs2 (xa (1)  ,ysa (1) ) 
call  polylineabs2 (xa,ysa,n3) 

endif 

if  (nsymx.eq.l  .and.  nsymy.eq. 
draw  arrow 

call  moveabs2(xs(l) ,ys(l) ) 
call  polylineabs2 (xs, ys, n2) 
call  moveabs2 (xsa (1) .ysa (1) ) 
call  polylineabs2 (xsa, ysa, n3) 

endif 


return 

end 

subroutine  label (x, y, sv) 
character  *(*)  sv 


)  then 
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call  moveabs2 (x, y) 
call  text(sv) 
return 
end 
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APPENDIX  H 
Contour  Plotting  Program 


The  code  used  for  plotting  contours  follows.  The  input  for  the  code  is  explained  on 
the  first  page  of  the  code.  The  code  plots  contours  on  a  cell  by  cell  basis.  A  cell  is  defined 
by  four  grid  points.  The  locations  along  the  sides  of  a  cell  through  which  contours  pass  are 
found  by  interpolation  of  the  values  at  the  grid  points.  All  the  contours  passing  through  a 
given  cell  are  plotted  before  moving  on  to  the  next  cell.  The  code  was  developed  to  use  the 
grid  numbering  scheme  used  in  the  solution  code.  The  solution  code  calculates  all  scalars 
such  as  pressure,  concentration,  temperature,  etc.  at  the  main  grid  points  so  these  can  be 
used  directly  by  the  contour  plotting  package.  To  plot  streamlines,  however,  the  velocity 
components  must  be  interpolated  from  cell  faces  to  the  grid  points.  This  is  accomplished  in 
subroutine  STREAM.  Integration  of  the  velocity  to  compute  the  stream  function  is  also 
performed  here.  The  variable  T(I,J)  is  used  to  store  the  values  for  contour  plotting.  As  for 
the  vector  plotting  code,  this  code  is  written  using  SUNCORE  graphics  routines  but  could 
be  easily  converted  to  some  other  system. 
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o  o  o  o  o 


PLOTTER 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


CONTOUR 

THREE  FILES  ARE  OPENED  FOR  INPUT  AND  OUTPUT  THEY  ARE: 
10  INPUTS  THIS  CONTROLS  THE  PLOTTING 

15  PLOT 15  THIS  IS  THE  PLOT  FILE  FROM  THE 

FLOW  CALCULATIONS 

16  CNTRDAT  PRINTED  OUTPUT 

INPUT  DATA  IS  FREE  FIELD 

DATA  IN  THE  CODE  PROMPTS  YOU  FOR  AND  THAT  IS  ENTERED 
FROM  THE  KEYBOARD 


NSETS,  NSTRM 


WHERE  NSETS  NUMBER  OF  SETS  OF  SCALARS  FOR 

WHICH  CONTOUR  PLOTS  ARE  TO 
TO  BE  MADE 

NSTRM  -  0  NO  STREAMLINES 
-  1  STREAMLINES 


OTHER  PROMPTED  INPUT  IS  SELF  EXPLANATORY 

DATA  FROM  FILE  INPUTS 

NCNTRS,  NTIMES,  NSYMX,  NSYMY,  MODE 
NBND 

IF  NBND  -  1  THEN 
(NPTS (J) ,  J  -  1 , NBND ) 

( XB  ( I ,  J )  ,  YB  ( I,  J)  ,  I  -  1,  K) 


WHERE 


NCNTRS 

NTIMES 

NSYMX 

NSYMY 

MODE 

NBND 
NPTS 
XB,  YB 


NUMBER  OF  CONTOURS  TO  BE  PLOTTED 
0  OR  1  (NOT  CURRENTLY  USED) 

1  SYMMETRIC  W.R.T.  HORIZONTAL  X-AXIS 
0  NOT  SYMMETRIC 

1  SYMMETRIC  W.R.T.  VERTICAL  Y-AXIS 
0  NOT  SYMMETRIC 

1  CARTESIAN  COORDINATES 

2  AXISYMMETRIC  CYLINDRICAL  COORDINATES 

NUMBER  OF  BOUNDARIES  TOBE  PLOTTED  FOR 
HIGHLIGHTING  THE  PROBLEM  DOMAIN 
NUMBER  OF  POINTS  ON  EACH  CONTINUOUS 
BOUNDARY 

X  S  Y  COORDINATES  OF  THE  CONTINUOUS 
SECTIONS  OF  THE  BOUNDARIES 


include  "/uir /old/usercore77 .h" 

PARAMETER  (ID-500, JD-500) 

DIMENSION  P (ID) ,P5 (ID) , X (ID) , Y ( ID) ,NL (4) , EL (4 ) , T1 (4) , T2 (4 )  , 

1  XX  (4 )  ,  YY  ( 4 )  ,  XC  (2)  ,  YC  (2)  , DEL  (ID,  4)  ,  TP  (ID,  4)  , 

2  XS(ID,4),YS(ID,4),XB(21,60) ,YB(2l,60) , NPTS (21) , 

3  XF  (5)  ,  YF  ( 5)  ,  XG  ( ID) ,  YG  (ID) 

COMMON  T  ( ID,  JD)  , R  (ID,  JD) ,  U  ( ID,  JD)  ,V(ID,  JD) 

CHARACTER* 60  TITLE,  SUBTITLE,  SSTITLE1 
CHARACTER* 10  NAME1,  NAME2,  NAME 3 
CHARACTER *10  VAL1,  VAL2 ,  VAL3 


INITIATE  PLOTTER 

integer  vsurf (vwsurfsize) 
integer  pixwindd 
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external  pixwindd 

integer  initializecore,  initializevwsurf ,  selectvwsurf 
data  vsurf  /vwsurf size*0/ 

DATA  NAME 1,  NAME2,  NAME 3  /'MIN',  'MAX',  'NUMBER'  / 

DATA  SSTITLE1  /'STREAMLINES'/ 

OPEN (UNIT-10, FILE-' INPUT5' , STATUS-' OLD'  ) 

OPEN (UNIT-15,  FILE-' PL0T15' , STATUS-' OLD'  ) 

OPEN (UNIT-16,  FILE-' CNTRDAT' , STATUS-' OLD' ) 

OPEN (UNIT-25,  FILE-' CHARACT' , STATUS-' OLD'  ) 

WRITE**, 660) 

660  FORMAT (/2X, 'ENTER  NSETS  &  NSTRM' ) 

READ ( * , * )  NSETS,  NSTRM 

WRITE (*, 667) 

READ (*, 661)  TITLE 

661  FORMAT (A60) 

WRITE (*,668) 

READ (*,661)  SUBTITLE 

667  FORMAT (/2X, 'ENTER  TITLE' ) 

668  FORMAT (/2X, 'ENTER  SUBTITLE' ) 

WRITE (*, 669) 

669  FORMAT (/2X, 'DO  YOU  WANT  TO  PLOT  A  SUBREGION  ?',/, 

:  2X,' ENTER  1  FOR  YES  OR  0  FOR  NO.  IF  YOU  ENTER  1',/, 

:  2X, ' ON  THE  NEXT  LINE  ENTER  THE  INDICIES  FOR  THE  REGION',/, 

:  2X, ' TO  BE  PLOTTED:  IFIRST, ILAST,  JFIRST,  JLAST' ) 

READ ( * , * )  IMAG 

IF  (IMAG.EQ.l)  READ (* , * )  IFST, ILST, JFST, JLST 
C 

c  open  suncore  graphics 
c 

vsurf (ddindex)  -  loc (pixwindd) 

if  (initializecore (basic,  noinput,  twod)  .ne.  0)  call  exit(l) 
if  (initializevwsurf (vsurf ,  false)  .ne.  0)  call  exit (2) 
if  (selectvwsurf (vsurf )  .ne.  0)  call  exit (3) 
c 

c  since  SUNCORE  assumes  a  window  y:x  -  3:4 

c  the  program  assumes  a  window  from  0.0  to  16.0  in 

c  the  horizontal  direction  and  from  0.0  to  12.0  in 

c  the  vertical  direction.  Plotting  takes  place  in 

c  an  11.0  by  11.0  region  starting  at  4.0,  0.5.  The 

c  remaining  space  can  be  used  for  textual  information, 

c 

c  setup  window  coordinates 
c 

xlft  -  0.0 
xrgt  -  16.0 
ybot  -  0.0 
ytop  -  12.0 
xo  -  4.0 
yo  -  0.5 
size  -  11.0 
c 

call  setndcspace2 (1 . 0,  0.75) 
call  setviewport2 (0 . 0, 1 . 0,  0.0,0.75) 
call  setwindow(xlft,  xrgt,  ybot,  ytop) 
call  createtempsegO 
c 

LBUG  -  0 

****************************************************************** 


INPUT  PLOT  CONTROL  PARAMETERS  USING  FILE  10 

READ ( 10 , * )  NCNTRS , NTIMES , NS YMX, NS YMY, MODE 
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C 

MSET  -  1 
C 

READ (10, * )  NBND 

IF  (NBND.EQ.O)  GO  TO  1 

READ (10,*)  (NPTS(J) , J-1,NBND) 

DO  100  J  -  1 , NBND 
K  -  NPTS(J) 

READ(10,*)  (XB ( I, J) ,  YB (I, J) ,  I  -  1,K) 

100  CONTINUE 
1  CONTINUE 

INPUT  GEOMETRY  AND  FIELD  VALUES  USING  FILE  15 

READ (15,*)  NX, NY 
READ (15,*)  (X(I),  I  -  1, NX) 

READ (15, *)  (Y  (I ) ,  I  -  1, NY) 

IF  (NSTRM.EQ. 1)  READ (15,*)  (XU,  I  -  1,NX) 

IF  (NSTRM.EQ. 1)  READ (15,*)  (YV,  I  -  1,NY) 

IF  (LBUG.GT.O)  THEN 
WRITE (16,*)  ' NCNTRS , NVALU , NX , N Y ' 

WRITE (16,*)  NCNTRS, NVALU, NX, NY 
END  IF 

NSSTITLE  -  0 

IF  (NSTRM  .EQ.  1)  NSSTITLE  -  1 
CALL  STREAM (NX , NY , MODE , MSET , NSTRM , X, Y, PMAX , PMIN ) 

DEFINE  THE  SET  OF  CONTOURS 

PINC  -  (PMAX  -  PMIN)/ (NCNTRS-1) 

PMIN  -  PMIN  +  PINC/ 1000 . 

PMAX  -  PMAX  -  PINC/1000 . 

PINC  -  (PMAX  -  PMIN) / (NCNTRS-1) 

C 

REWIND  25 

WRITE (25, 670)  PMIN, PMAX, NCNTRS 

670  FORMAT (2 (IX, E10. 4), IX,  110) 

REWIND  25 

READ (25, 671)  VAL1,  VAL2 ,  VAL3 

671  FORMAT ( 3 ( IX, A10 ) ) 

IF  (NCNTRS. EQ.l)  PINC  -  0.0 
TOL  -  PINC/10 . 

P(l)  -  PMIN 
.  NLN  -  1 
N5  -  0 

IF  (NCNTRS . EQ . 1 )  GO  TO  132 
DO  130  I  -  2, NCNTRS 
P(I)  -  P(I-l)  +  PINC 
IF  (NLN  .EQ.  5)  THEN 
N5  -  N5  +  1 
P5(N5)  -  P(I) 

END  IF 

NLN  -  NLN  +  1 
IF  (NLN  .EQ.  6)  NLN  -  1 
130  CONTINUE 
132  CONTINUE 
C 

IF  (LBUG.EQ . 1)  WRITE (16,*)  '  P' , (P (I) , 1-1, NCNTRS) 
C 

c  plot  frame 

c 

xf (1)  -  xo 

xf (2)  -  xf(l)  +  size 

xf (3)  -  xf (2) 


o  o  o 


xf (4)  =  xf(l) 
xf(5)  -  xf(l) 
yf(l)  -  yo 
yf (2)  -  yf (1) 
yf (3)  -  yf  (1)  +  size 
yf<4)  -  yf (3) 
yf<5)  -  yf (1) 
c 

line  -  0 

call  setlinestyle (line) 
call  setlinewidth (0 .2) 
call  moveabs2(xf (1) ,yf  (l) ) 
call  polylineabs2 (xf , yf , 5) 
call  setlinewidth (0.0) 
c 

c  label  plot 


xt  -  0.5 
yt  -  11.75 

call  label(xt, yt, title (1: 60) ) 

yt  -  11.5 

call  label  (xt,yt,  subtitled:  60) ) 
yt  -  11.75 

if  (nsstitle.eq. 1)  call  label (xt, yt, sstitlel (1 : 60) ) 
nsstitle  —  0 
yt  -  10.0 

call  label (xt,yt, namel (1: 10) ) 

xt  -  2.0 

call  label (xt,yt, vail (1:10) ) 

xt  -  0.5 
yt  -  9.75 

call  label (xt,yt,name2(l:  10) ) 

xt  -  2.0 

call  label (xt,yt,val2(l: 10) ) 

xt  -  0.5 
yt  -  9.5 

call  label (xt , yt, name3 (1 : 10) ) 
xt  -  2.0 

call  label (xt, yt, val3 (1:10)) 
c 

call  coords (nx, ny , x, y , nbnd, npts , xb, yb, xo, yo, nsymx, nsymy, 
c  '  xp°,ypo,size,xg,yg, imag, if st, ilst, jfst, jlst) 

NSYM  -  0 

IF  (NTIMES. EQ.0)  NTIMES  -  1 
ccccccccccc  DO  700  ITIME  —  1, NTIMES 

ccccccccccc  READ (15,*)  ( (T(I, J) ,I-l,NX) , J-1,NY) 
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IF  (LBUG.EQ.l)  THEN 
WRITE (16,*)  '  NX, NY', NX, NY 
WRITE (16,*)  '  I, J, T' 

DO  31  1*1 r NX 

DO  31  J*1 , NY 

WRITE (16, *)  I,J,T(I,J) 

CONTINUE 

END  IF 


LOOP  OVER  ALL  CELLS 

NC  -  ILST  -  1 
NR  -  JLST  -  1 
10  DO  600  LY  *  JFST, NR 
DO  600  LX  «  IFST,NC 

CALL  WIDTH (LX, LY, NX, NY, XG, YG, T, EL, Tl, T2 , XX, YY) 
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IF  (LBUG  .EQ.  1)  THEN 
WRITE (16,*)  '  LX,LY' ,  LX,LY 
WRITE (16, * )  '  TI' , (T1(I) ,1-1,4) 

WRITE (16, *)  '  T2',  (T2(I), 1-1,4) 

WRITE (16, *)  '  XX', <XX(I) ,1-1,4) 

WRITE (16, *)  '  YY',  (YY(I) ,1-1,4) 

WRITE (16, *)  '  EL', (EL(I), 1-1,4) 

END  IF 
C 

K1  -  1 
K2  -  2 

DO  350  1-1,4 
C 

CALL  POTEN(Tl (I) ,T2 (I) , EL ( I ) ,  P ,  P INC , NCNTRS , TP (1,1) , DEL (1, I) , JX) 

IF  (LBUG.EQ.l)  THEN 

WRITE (16,*)  '  SIDE', I,'  TP' 

WRITE (16,*)  (TP ( JPX, I) , JPX—1, NCNTRS) 

END  IF 
C 

NL (I)  -  JX 

IF  (JX.EQ.O)  GO  TO  325 
DX  -  XX (K2 )  -  XX(K1) 

DY  -  YY (K2)  -  YY(K1) 

C 

IF  (LBUG.EQ.l)  THEN 

WRITE  (16,*)  '  K1  K2  DX  DY' , Kl, K2, DX, DY 
END  IF 
C 

DO  300  J  -  1,JX 

XS(J, I)  -  XX (Kl )  +  DX*DEL(J, I) /EL (I) 

YS ( J, I)  -  YY (Kl)  +  DY*DEL ( J, I) /EL (I) 

300  CONTINUE 
C 

IF  (LBUG.EQ.l)  THEN 

WRITE (16,*)  '  JX' , JX 

WRITE (16,*)  '  XS' , (XS ( J, I) , J— 1, JX) 

WRITE (16,*)  '  YS' , (YS ( J, I) , J-l, JX) 

END  IF 
C 

325  CONTINUE 
C 

Kl  -  Kl  +  1 
K2  —  K2  +  1 
IF  (K2.GT.4)  K2  -  1 
C 

350  CONTINUE 
IX  -  2 
JX  -  NL  (1) 

7  CONTINUE 

IF  (JX.EQ.O)  GO  TO  8 
II  -  IX  -  1 
C 

DO  470  I  -  IX,  4 
DO  450  J  -  1,JX 
KX  -  NL  (I) 

IF  (IX.EQ.0)  GO  TO  450 

DO  400  K  -  1, KX 

TST  -  ABS (TP ( J, II)  -  TP (K, I) ) 

IF (TST.GT.TOL)  GO  TO  400 
XC(1)  -  XS(J,I1) 

XC (2)  -  XS (K, I) 

YC  (1)  -  YS  ( J,  II) 

YC  (2)  -  YS  (K,  I) 


IF  (NSYM.EQ.l)  THEN 
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IF  (NSYMX.NE.O)  THEN 
XC(1)  -  2 . *XPO  -  XC (1) 

XC (2)  -  2 . *XPO  -  XC (2 ) 

ENDIF 

IF  (NSYMY.NE.O)  THEN 
YC(1)  -  2 . * YPO  -  YC (1) 

YC (2)  -  2 . *YPO  -  YC (2) 

ENDIF 

ENDIF 

C 

C  LINE  -  0  SOLID 

C  1  DOT 

C  2  DASH 

C  3  DOT-DASH 

C 

LINE  -  1 

DO  360  15  -  1,N5 

IF  (ABS (P5 (15) -TP (K, I) )  .LT.  TOL)  LINE  -  0 
360  CONTINUE 

IF  (ABS (P (1 ) -TP (K, I ) )  .LT.  TOL)  LINE  -  2 
IF  (ABS  (P  (NCNTRS)  -TP  (K,  I)  )  .LT.  TOL)  LINE  -  0 
call  setlinestyle (line) 
call  moveabs2 (xc (1) , yc  (1) ) 
call  polylineabs2 (xc, yc, 2) 

400  CONTINUE 
450  CONTINUE 
470  CONTINUE 
8  CONTINUE 

JX  -  NL  (IX) 

IX  -  IX  +  1 
IF  (IX.LE.4)  GO  TO  7 
600  CONTINUE 

NSYM  -  NSYM  +  1 

IF (NSYM . LT . 2  .AND.  (NSYMX.NE.O  .OR.  NSYMY.NE.O))  GO  TO  10 
C 

700  CONTINUE 
C 

c  hold  plot  for  60  seconds  then  clear  screen 

c 

call  sleep (60) 
call  newframe 
c 

MSET  -  MSET  +  1 
C 

IF  (MSET.LE.NSETS)  GO  TO  1000 
C 

CLOSE (UNIT-10,  STATUS-' KEEP' ) 

CLOSE (UNIT-15,  STATUS-' KEEP' ) 

CLOSE (UNIT-1 6, STATUS- 'KEEP' ) 

CLOSE (UNIT-25,  STATUS-' KEEP' ) 

C 

C**************TERMINATE  plotter* ********** 

c 

c 

c  close  and  exit 

c 

call  CloseTempSeg ( ) 
call  Deselect Vwsur f (vsurf) 
call  TerminateCore ( ) 
c 

END 

C 

£★***  **********  ********************************************** ******** 
C  SUBROUTINES 

c**************************** **************************************** 
C 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


c 


c 


c 

c 

c 


c 


SUBROUTINE  WIDTH ( I, J, NX, NY, X, V, T, EL, T1 , T2 ,  XX,  YY) 

PARAMETER  (ID-500, JD-500) 

DIMENSION  X (NX) , Y (NY) ,  T  (ID,  JD)  ,  EL  (4  >  ,  T1 ( 4 ) , T2 ( 4 )  ,  XX ( 4 )  ,  YY ( 4 ) 


(3) 

4  O - 

I 
I 
I 
I 

(4)  I 
I 
I 
I 
I 

1  0 - 

(1) 

LENGTHS  OF  THE  SIDES 

EL(1)  -  ABS (X (1+1)  -  X(I) ) 

EL (3)  -  EL ( 1 ) 

EL (2)  -  ABS (Y ( J+l )  -  Y  ( J)  } 

EL (4)  -  EL(2) 

THE  END  VALUES  FOR  EACH  SIDE 


T1  (1)  -  T(I.J) 

T2 (1)  -  T (1+1, J) 

T1  (2)  -  T2 ( 1) 

T2  (2)  -  T  (1+1,  J+l) 

T1  (3)  -  T2 (2) 

T2  (3)  -  T  (I ,  J+l ) 

T1 (4)  -  T2 (3) 

T2 (4)  -  T1  (1) 

THE  END  POINT  COORDS  FOR  EACH  SIDE 


XX (1)  -  X(I) 

XX (2)  -  X(I+1) 

XX (3)  -  XX (2) 

XX (4)  -  XX(1) 

YY (1)  -  Y ( J) 

YY (2)  -  YY (1) 

YY (3)  -  Y (J+l ) 

YY (4)  -  YY (3) 

RETURN 

END 

SUBROUT INE  POTEN <T1,T2,EL,P,P INC , NP , T , X , NX ) 
DIMENSION  P (1) ,T(1) ,X(1) 

COMPUTE  RELATIVE  LOCATIONS  OF  CONTOURS  ALONG  A  SIDE 
J  -  1 

DT  -  T2  -  T1 

IF  (T1.EQ.T2)  GO  TO  4 
IF  (T1.GT.T2)  GO  TO  1 
A  -  T1 
Z  -  T2 
GO  TO  2 
A  -  T2 
Z  -  T1 
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2 

100 


4 

200 


C 

C 

C 


C 

C 

C 


C 

C 

C 


C 

c 

c 


40 


41 


42 


DO  100  I  -  1,  NP 

IF  (A.LT.P(I) )  GO  TO  3 

CONTINUE 

GO  TO  6 
A  -  P(I) 

IF  (A.GT.Z)  GO  TO  6 
X(J)  -  EL*(A-T1)/DT 
T  ( J)  -  A 
J  -  J  +  1 
A  -  A  +  P INC/10 . 

GO  TO  2 

DO  200  I  -  1 ,  NP 

IF  (Tl.EQ.P (I) )  GO  TO  5 

CONTINUE 

GO  TO  6 
X(J)  -  0.0 
T ( J)  -  P(I) 

J  -  J  +  1 


NUM  OF  CONTOURS  PASSING  THROUGH  A  SIDE 
1 


NX 

NX  -  J 

RETURN 

END 


SUBROUTINE  STREAM (NX, NY, MODE, MSET, NSTRM, X, Y, TMAX, TMIN) 
PARAMETER  ( ID-500 , JD-500 > 

DIMENSION  X (NX) , Y (NY) , UG (ID, JD) ,VG(ID, JD) 

COMMON  T ( ID, JD) ,R(ID,JD),U(ID,JD) ,V(ID, JD) 

IF  (NSTRM. NE.l)  GOTO  100 
NSTRM  -  0 

DO  40  J  -  1, NY 

READ (15, * )  (R(I, J) ,1-1, NX) 

CONTINUE 

DO  41  J  -  1,NY 

READ (15,*)  (U (I,  J) ,  I— 1 , NX) 

CONTINUE 

DO  42  J  -  1,NY 

READ (15,*)  (V(I, J) , I-1,NX) 

CONTINUE 


FIND  VELOCITIES  AT  CELL  GRID  POINTS 


L 

M 


NX 

NY 


CORNER  POINTS 


UG ( 1 , 1 ) 
VG (1,1) 
UG (L, 1 ) 
VG  (L, 1 ) 
UG  ( 1 , M ) 
VG(1,M) 
UG  ( L ,  M ) 
VG  (L,M) 


U(2, 1) 
V<1,2) 
U(L,1) 
V (L,  2) 
U(2,M) 
V  ( 1,  M) 
U(L,M) 
V(L,  M) 


BOTTOM  &  TOP  POINTS 


LI  -  L-l 
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DO  44  I  -  2, LI 

UG (1,1)  -  (0(1,1)  +  U (1+1, 1) ) /2 . 0 
VG(I, 1)  -  V (I , 2 ) 

UG (I, M)  -  (U(I,M)  +  U(I+1,M) ) /2.0 
VG(I,M)  -  V (I , M) 

44  CONTINUE 
C 

C  LEFT  &  RIGHT  POINTS 

C 

Ml  -  M-l 

DO  46  J  -  2, Ml 
UG  (1,  J)  -  U  (2,  J) 

VG (1, J)  -  (V(1,J)  +  V (1, J+l) ) /2 . 0  v 

UG  (L,  J)  -  U  (L,  J) 

VG (L, J)  -  (V (L, J)  +  V(L, J+l) ) /2 .0 
46  CONTINUE 

C  < 

C  INTERIOR  POINTS 

C 

DO  48  I  -  2, LI 
DO  48  J  -  2, Ml 

UG(I, J)  -  (U(I,J)  +  U(I+l,J))/2.0 
VG (I, J)  -  (V(I,J)  +  V(I, J+l) ) /2 .0 
48  CONTINUE 
C 

DO  50  J  -  1,NY 
DO  50  I  -  1 , NX 
T (I , J)  -  0.0 
50  CONTINUE 
C 

C  AVG.  RHO*U  AND  RHO*V  ON  INTEGRATION  PATH 

C 

C  LEFT  BOUNDARY 

C 

DO  60  J  -  2, NY 

RU  -  (UG ( 1, J-l) *R (1, J-l)  +  UG (1, J) *R(1, J) ) /2 . 0 
IF  (MODE . EQ . 1 )  T (1, J)  -  T(1,J-1)  +  RU*(Y(J)  -  Y(J-l)) 

IF  (MODE . EQ . 2 )  T(1,J)  -  T(1,J-1)  - 
1  RU* (Y ( J) **2  -  Y(J-l)**2)/2.0 

60  CONTINUE 
C 

C  BOTTOM  BOUNDARY 

C 

DO  62  I  -  2, NX 

RV  -  (VG(I-1, 1) *R (1-1, 1)  +  VG (I,l)*R(I,l))/2.0 
IF  (MODE . EQ . 1 )  T (I, 1)  -  T(I-1,1)  -  RV*(X(I)  -  X(I-l)) 

IF  (MODE.EQ.2)  T(I,1)  -  0.0 
62  CONTINUE 
C 

C  REMAINING  POINTS 

C 

DO  64  J  -  2, NY 
DO  64  I  -  2, NX 

RU  -  (UG(I, J) *R(I, J)  +  UG(I,J-l)*R(I,J-l))/2.0 
c 

c  remove  ff  stmt  so  only  y  integration  is  performed 

c 

C  RV  -  (VG (1-1, J-l )*R(I-1,J-1)  +  VG (I, J-l)*R(I,J-l))/2.0 

C 

IF  (MODE .EQ. 1)  T (I, J)  -T(I,J-1)  +  RU* (Y ( J) -Y ( J-l ) ) 
c 

c  remove  continuation  of  above  stmt  so  only  y  integ.  is  done 

c 

c  :  -  RV* (X(I)-X(I-l) ) 

C 

IF  (MODE.EQ.2)  T(I,J)  -  T(I,J-1)  -  RU* (Y ( J) **2-Y ( J-l ) **2) /2 . 0 
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c 

64  CONTINUE 
C 

GOTO  110 
C 

100  DO  70  J  -  1,  NY 

READ (15,*)  (T(I,J),I-1,NX) 

70  CONTINUE 
C 

110  CONTINUE 

TMAX  -  -1.E50 
TMIN  -  1.E50 

DO  80  J  -  1,NY 
DO  80  I  -  1, NX 

IF (TMAX . L£ . T (1/ J) )  TMAX  -  T(I,J) 

IF (TMIN .GE . T (I, J) )  TMIN  -  T(I,J) 

80  CONTINUE 
C 

RETURN 

END 

C 

subroutine  coords  <nx, ny , x , y , nb, np, xb, yb, xo, yo, nsymx, nsymy , 

xpo, ypo, size,  xg,yg, imag, if s, ils, jfs,  jls) 
dimension  x  (1) ,  y  (1) , xg (1) , yg (1) , np (1) , xb (21, 60)  , yb (21 , 60)  , 
xbd (21), ybd (21) 

xo  &  yo  origin 
c  plot  window  is  size  by  size 
c 

if  (imag.eq.0)  then 
if s  -  1 
ils  -  nx 
jfs  -  1 
jls  -  ny 
endif 

sea  -  x(ils)  -  x(ifs) 

scay  -  y ( jls)  -  y(jfs) 

xpo  “  xo 

ypo  -  yo 

xbo  -  x(ifs) 

ybo  -  y (jfs) 

if  (nsymx. eq.l)  sea  -  2.0*sca 
if  (nsymy. eq.l)  scay  -  2.0*scay 
if  (sea. It. scay)  sea  -  scay 
if  (nsymx. eq.l)  xpo  -  xo  +  size/2.0 
if  (nsymy. eq.l)  ypo  -  yo  +  size/2.0 
do  10  i  -  l,nx 

xg(i)  -  (x(i)  -  x(ifs) ) *size/sca  +  xpo 

10  continue 

do  11  j  -  1, ny 

yg(j)  “  (y(j)  -  y( jfs) )*size/sca  +  ypo 

11  continue 

do  14  j  -  l,nb 
ip  -  np ( j) 
nsym  -  0 

12  do  13  i  -  l,ip 

xbd(i)  -  (xb(i,j)  -  xbo) *size/sca  +  xpo 
ybd(i)  -  (yb(i,j)  -  ybo) *size/sca  +  ypo 
IF  (NSYM.EQ. 1)  THEN 
IF  (NSYMX . NE , 0)  THEN 
XBD (I)  -  2 . *XPO  -  XBD (I) 

ENDIF 

IF  (NSYMY.NE.0)  THEN 
YBD  (I)  -  2 . *YPO  -  YBD  (I) 

ENDIF 

ENDIF 
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13  CONTINUE 

nsym  -  nsym  +  1 

call  moveabs2 (xbd(l)  ,ybd(l)  ) 
call  polylineabs2 (xbd, ybd, ip) 
if (nsym. It. 2  .and.  (nsymx.ne.O  .or.  nsymy.ne.O))  go  to  12 

14  continue 
return 
end 

subroutine  label (x, y, sv) 
character  *(*)  sv 
call  moveabs2 (x, y) 
call  text(sv) 
return 
end 
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